Code:Sub Knop4_Klikken() sn= Sheets("Voorblad").range("B2:D4") c00 = "Y:\test\Voorbladen" & sn(1,2) & "_" & sn(1,3) & "\" & sn(2,1) & "_" & sn(3,1) if dir(c00,16)="" then CreateObject("shell.application").Namespace(left(c00,2)).NewFolder mid(c00,4) ActiveWorkbook.SaveAs c00 & "\Voorblad_" & sn(2,1)& ".xlsm",52 End Sub
NB. Vermijd niet-alphanumerieke tekens ( en spaties) in padnamen/bestandsnamen. Als onvermijdelijk gebruik dan alleen de underscore: _
Jouw code doet waar ik naar op zoek ben. Hartstikke bedankt.
Wat mij opvalt is dat jouw code qua layout/gebruikte termen totaal niet lijkt op die van mij. Omdat ik sowieso moeite heb met het begrijpen van VBA ben ik zelf nog verder wezen stoeien....met resultaat.
Code:
Sub Knop7_Klikken()
Dim stPath As String
With Sheets("Voorblad")
stPath = "Y:\test\"
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(stPath) Then .CreateFolder stPath
End With
stPath = stPath & ("Voorbladen ") & .Range("C2") & (" - ") & .Range("D2") & "\"
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(stPath) Then .CreateFolder stPath
End With
stPath = stPath & .Range("B3") & (" ") & .Range("B4") & "\"
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(stPath) Then .CreateFolder stPath
End With
ActiveWorkbook.SaveAs Filename:=stPath & ("Voorblad ") & .Range("B3").Value & ".xlsm"
End With
End Sub