Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Geacht forum,
Als ik in onderstaande code ,
, wijzig in ,
, dan werkt het wel.
Wat is er nou mis aan onderstaande code?
Als ik in onderstaande code ,
Code:
Facturen & " " & jaar
Code:
Facturen 2017
Wat is er nou mis aan onderstaande code?
Code:
Sub Map_toevoegen()
Dim jaar As Single
jaar = DatePart("yyyy", Range("A1"))
Dim fs As Object 'Eerst kijken of map al bestaat
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.folderexists("C:\Users\Gebruiker\Documents\Facturen & " " & jaar\" & Range("G15").End(xlUp)) Then
MkDir "C:\Users\Gebruiker\Documents\Facturen & " " & jaar\" & Range("G15").End(xlUp)
End If
End Sub