Bestand opslaan in zojuist gecreeerde map

[Margot08]

Goedemorgen,

onderstaande VBA code werkt:

Sub Test()
Dim fs As Object 'Eerst kijken of de schijf en map bestaat
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.folderexists("F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & Range("B2") & Range("D3")) Then
'Maak een map
MkDir "F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & " " & Range("B2") & " " & Range("D3")
End If
ActiveWorkbook.SaveAs Filename:="F:\bedrijfsnaam\Planning\Lopende projecten" & ActiveWorkbook.Name
End Sub

De map wordt aangemaakt en het bestand wordt opgeslagen.
Ik zou het bestand echter graag opslaan in de zojuist gecreeerde map, maar
ActiveWorkbook.SaveAs Filename:="F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & " " & Range("B2") & " " & Range("D3")" & ActiveWorkbook.Name

werkt niet. Wat doe ik fout

Margot

 

[OctaFish]

Er staat een aanhalingsteken teveel:

    ActiveWorkbook.SaveAs Filename:="F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & " " & Range("B2") & " " & Range("D3") & ActiveWorkbook.Name

Overigens vraag ik me af of je niet een backslash vergeet:

    ActiveWorkbook.SaveAs Filename:="F:\bedrijfsnaam\Planning\Lopende projecten[B]\[/B]" & Range("D2") & " " & Range("B2") & " " & Range("D3") & ActiveWorkbook.Name

 

[edmoor]

Probeer deze eens:

Sub Test()
    Dim fs As Object
    Dim Map As String
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Map = "F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & Range("B2") & Range("D3")
    If Not fs.folderexists(Map) Then MkDir Map
    ActiveWorkbook.SaveAs Filename:=Map & "\" & ActiveWorkbook.Name
End Sub

 

[Margot08]

Dank je wel

Edmoor met een kleine aanpassing werkte je oplossing.
Dank je wel