opslaan als en dir zoeken

[ridan]

Beste,

ik heb een probleempje met opslaan van een bestand.
In het vak a1 staat het jaartal
In kolom B : de maanden "januari , februari ,...."
Met deze gegevens maak ik de map 2015 en submappen aan op G:\ rommel
Nu is het de bedoeling om het bestand op te slaan in de map (juiste maand)

Vb het bestand gemaakt op 01/07/2015 moet opgeslagen worden in G:\Rommel\2015\Juli
bestand gemaakt op 23/08/2015 met opgeslagen worden in G:\Rommel\2015\Augustus

In bijlage een bestandje als voorbeeld

Dank bij voorbaat voor de hulp

 

[edmoor]

Probeer deze eens:
Bekijk bijlage Test opslaan als.xlsm

 

[ridan]

Edmoor ,

Krijg een foutmelding bij opslaan als :
Mvg
Danny

 

[edmoor]

Bij mij werkte het goed maar ik heb nog een kleine wijziging aangebracht. Probeer het eens:
Bekijk bijlage Test opslaan als.xlsm

 

[HSV]

Of:

Private Sub CommandButton1_Click()
 With Sheets("Blad1")
   CreateObject("shell.application").Namespace("C:").Newfolder "Rommel\" & .Range("A1") & "\" & Format(Date, "mmmm")
   ThisWorkbook.SaveAs "C:\Rommel\" & .Range("A1") & "\" & Format(Date, "mmmm") & "\" & Format(Now, "dd-mmm-yyyy hh_mm_ss"), 52
 End With
End Sub

 

[ridan]

Edmoor ,

Werkt als een trein.

Bedankt voor de hulp.
Nu nog wat sleutelen en het bestand verder aanpassen.
Als er nog vragen moesten komen weet ik waar te vragen.

Bedankt
Danny