Map aanmaken

[bkoppers]

Ik heb een VBA code om een document op te slaan, echter ik weet niet hoe ik , als de map nog niet bestaat ik deze moet opslaan. Kan iemand mij helpen.


Sub opslaan()
'
' opslaan Macro

ChDir "G:\" & Range("VK_nummer").Value & " - " & Range("Ordernummer").Value & ""
ActiveWorkbook.SaveAs Filename:= _
"G:\bedrijfsbureau\Vekoma\Documenten\2013\" & Range("VK_nummer").Value & " - " & Range("Ordernummer").Value & "\Documenten\" & Range("Ordernummer").Value & " - Line " & Range("Line_nummer").Value & " - rapporten.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


End Sub

 

[Cobbe]

Zou deze werken?

Sub opslaan()
 '
 ' opslaan Macro
 If Dir("G:\" & Range("VK_nummer").Value & " - " & Range("Ordernummer").Value & "", vbDirectory) = "" Then
    MkDir ("G:\" & Range("VK_nummer").Value & " - " & Range("Ordernummer").Value & "")
 End If
 ChDir "G:\" & Range("VK_nummer").Value & " - " & Range("Ordernummer").Value & ""
 ActiveWorkbook.SaveAs Filename:= _
 "G:\bedrijfsbureau\Vekoma\Documenten\2013\" & Range("VK_nummer").Value & " - " & Range("Ordernummer").Value & "\Documenten\" & Range("Ordernummer").Value & " - Line " & Range("Line_nummer").Value & " - rapporten.xlsm" _
 , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 End Sub