Code:
Sub Opslaan()
Naam = "xxxx_xx " & Year(Date) & " " & "yyyy"
Pad = "C:\Users\%USERNAME%\Documents\Testmap\"
If Len(Dir(pad, vbDirectory)) = 0 Then
MkDir (Pad)
End If
ActiveDocument.SaveAs FileName:=Pad & Naam
End Sub
Waarom gaat dit niet goed, wat zie ik over het hoofd?
Ik krijg een foutmelding wanneer hij bij MkDir komt.
Als ik %USERNAME% vervang voor mijn username gaat het wel goed. Maar dat is niet helemaal wat ik wil.