macro opslaan als in nog niet bestaande map

[Niels28]

Hallo,

Ik heb een macro aangemaakt die wat gegevens moet verwerken bij het openen van het bestand en het bestand dan op moet in de map
F:\\data\autocad\planning\(celwaarde E1)\planning +(celwaarde E1) + (celwaarde E10).xls
Dit werkt prima behalve als de map nog niet bestaat.
Hoe moet ik dit aanpassen dat als de map niet bestaat deze wordt aangemaakt.

Private Sub CommandButton1_Click()
'marco voor het instellen van de persoonsgegevens van een nieuwe gebruiker'

'melding maken van wat de bedoeling is'
MsgBox "Hierna volgen een 8-tal vragen" & vbCrLf & "om je planningslijst op jouw gegevens in te stellen." & vbCrLf & "De planning wordt automatisch op de juiste plaats" & vbCrLf & "en onder de juiste naam opgeslagen."

'vragen naar persoonsgegevens en verwerken in desbetreffende cellen'
Range("e1").Value = InputBox("voor welk jaar is de planning?", "jaartal planning")
Range("e10").Value = InputBox("wat is je voornaam?", "voornaam")
Range("e11").Value = InputBox("wat is je achternaam?", "achternaam")
Range("e12").Value = InputBox("wat is je loonnummer?", "loonnummer")
Range("f10").Value = InputBox("hoeveel snipperuren neem je mee van vorig jaar?", "snipperuren")
Range("f11").Value = InputBox("hoeveel snipperuren krijg je dit jaar?", "vakantierecht")
toeslag:
Range("f12").Value = InputBox("krijg je overuren toeslag (ja/nee)?", "overurentoeslag")
'melding maken als er geen ja of nee is ingevuld en vraag opnieuw stellen'
Dim toeslag1
toeslag1 = Range("f12").Value
If toeslag1 <> "ja" Then
If toeslag1 <> "nee" Then
MsgBox ("JA of NEE invullen")
GoTo toeslag
End If
End If
Sheets(1).Name = Sheets(1).Range("e1").Value
Sheets(2).Name = "print " & Sheets(1).Range("e1").Value
Sheets(3).Name = "grafiek " & Sheets(1).Range("e1").Value
'vragen of de macro later nog een keer uitgevoerd moet worden'
nogmaals:
Range("G12").Value = InputBox("wil je deze instellingen later nog een keer doen? (ja/nee)")
'melding maken als er geen ja of nee is ingevuld en vraag opnieuw stellen'
Dim nogmaals1
nogmaals1 = Range("g12").Value
If nogmaals1 <> "ja" Then
If nogmaals1 <> "nee" Then
MsgBox ("JA of NEE invullen")
GoTo nogmaals
End If
End If
Hide
'bestand opslaan als in de opgeven map met als naam: planning  (jaartal) (voornaam).xls'
ActiveWorkbook.SaveAs Filename:="F:\data\autocad\planning\" & Range("e1").Value & "\Planning " & Range("e1").Value & " " & Range("e10").Value & ".xls"
End Sub

 

[Niels28]

Sorry,

Is al opgelost moest zoeken onder createfolder in help.

Private Sub CommandButton1_Click()
'marco voor het instellen van de persoonsgegevens van een nieuwe gebruiker'

'melding maken van wat de bedoeling is'
MsgBox "Hierna volgen een 8-tal vragen" & vbCrLf & "om je planningslijst op jouw gegevens in te stellen." & vbCrLf & "De planning wordt automatisch op de juiste plaats" & vbCrLf & "en onder de juiste naam opgeslagen."

'vragen naar persoonsgegevens en verwerken in desbetreffende cellen'
Range("e1").Value = InputBox("voor welk jaar is de planning?", "jaartal planning")
Range("e10").Value = InputBox("wat is je voornaam?", "voornaam")
Range("e11").Value = InputBox("wat is je achternaam?", "achternaam")
Range("e12").Value = InputBox("wat is je loonnummer?", "loonnummer")
Range("f10").Value = InputBox("hoeveel snipperuren neem je mee van vorig jaar?", "snipperuren")
Range("f11").Value = InputBox("hoeveel snipperuren krijg je dit jaar?", "vakantierecht")
toeslag:
Range("f12").Value = InputBox("krijg je overuren toeslag (ja/nee)?", "overurentoeslag")
'melding maken als er geen ja of nee is ingevuld en vraag opnieuw stellen'
Dim toeslag1
toeslag1 = Range("f12").Value
If toeslag1 <> "ja" Then
If toeslag1 <> "nee" Then
MsgBox ("JA of NEE invullen")
GoTo toeslag
End If
End If
Sheets(1).Name = Sheets(1).Range("e1").Value
Sheets(2).Name = "print " & Sheets(1).Range("e1").Value
Sheets(3).Name = "grafiek " & Sheets(1).Range("e1").Value
'vragen of de macro later nog een keer uitgevoerd moet worden'
nogmaals:
Range("G12").Value = InputBox("wil je deze instellingen later nog een keer doen? (ja/nee)")
'melding maken als er geen ja of nee is ingevuld en vraag opnieuw stellen'
Dim nogmaals1
nogmaals1 = Range("g12").Value
If nogmaals1 <> "ja" Then
If nogmaals1 <> "nee" Then
MsgBox ("JA of NEE invullen")
GoTo nogmaals
End If
End If
Hide
'bestand opslaan als in de opgeven map met als naam: planning  (jaartal) (voornaam).xls'

With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists("F:\data\autocad\planning\" & Range("e1").Value & "\") Then .CreateFolder "F:\data\autocad\planning\" & Range("e1").Value & "\"
End With
ActiveWorkbook.SaveAs Filename:="F:\data\autocad\planning\" & Range("e1").Value & "\Planning " & Range("e1").Value & " " & Range("e10").Value & ".xls"

End Sub