Map aanmaken in macro

[Roughneck]

Ik zoek een macro die a.d.h.v. een celwaarde kijkt of een map met deze naam (celwaarde) al bestaat op schijf G:\, zo niet een map met die naam aanmaken, en bestand als "bestand voor de maand (maand-lange notatie) jaar(jjjj)" wegschrijven in die nieuwe map.

 

[HSV]

Zoiets?

Sub tst()
  On Error Resume Next
    MkDir "G:\" & Range("A1").Value
  ActiveWorkbook.SaveAs "G:\" & Range("A1").Value & "\" & Format(Range("B1").Value, "mmmm-yyyy") & ".xlsm"
End Sub

 

[Roughneck]

Harry,

kwam met jouw suggestie en een stukje van wat ik elders geleend heb tot de volgende werkende code:

Sub map()

Const Werkdir = "G:\Test\"
Dim Sysmonth
Dim Sysyear
  Dim tel As Integer, Letter As String
    Dim lastSaved As Date, antw As Integer
  Sysmonth = Format(Date, "mmmm")
  Sysyear = Format(Date, "yyyy")

    Bestandsnaam$ = [C3]
    If Dir(Werkdir & Bestandsnaam$) = "" Then

    
    MkDir (Werkdir & Bestandsnaam$)
    
    ActiveWorkbook.SaveAs Werkdir & Bestandsnaam$ & "\" & "maandelijks verhaal " & Sysmonth & " " & Sysyear & ".xls"

            
    End If
End Sub

Misschien dat het compacter kan, maar het werkt wel.

 

[HSV]

Harry,
Misschien dat het compacter kan.

Ja, zoals in mijn voorbeeld.

 

[Roughneck]

Ach Harry, het was laat hè.