Hallo,
ik gebruik onderstaande macro om een nieuwe mao met submappen aan te maken:
Sub CreateFolder()
Dim NewFolder As String
NewFolder = "Z:\Ronald\Klantdossier digitaal\Klantdossier 2023" & Range("b1")
If Len(Dir(NewFolder, vbDirectory)) = 0 Then
MkDir NewFolder
MkDir NewFolder & "\Bestellingen"
MkDir NewFolder & "\Factuur"
MkDir NewFolder & "\Inmeting"
MkDir NewFolder & "\ISO"
MkDir NewFolder & "\Montageinstructies"
MkDir NewFolder & "\Opdracht"
MkDir NewFolder & "\Oplevering"
Else
MsgBox "Folder already exists"
End If
End Sub
Nu wil ik graag na het aanmaken van de nieuwe map hier een bestand naar toe kopiëren
Het bestand staat bijvoorbeeld op C:\testmap en heet testformulier.xls
welke aanvulling moet ik maken op bovenstaande macro
ik gebruik onderstaande macro om een nieuwe mao met submappen aan te maken:
Sub CreateFolder()
Dim NewFolder As String
NewFolder = "Z:\Ronald\Klantdossier digitaal\Klantdossier 2023" & Range("b1")
If Len(Dir(NewFolder, vbDirectory)) = 0 Then
MkDir NewFolder
MkDir NewFolder & "\Bestellingen"
MkDir NewFolder & "\Factuur"
MkDir NewFolder & "\Inmeting"
MkDir NewFolder & "\ISO"
MkDir NewFolder & "\Montageinstructies"
MkDir NewFolder & "\Opdracht"
MkDir NewFolder & "\Oplevering"
Else
MsgBox "Folder already exists"
End If
End Sub
Nu wil ik graag na het aanmaken van de nieuwe map hier een bestand naar toe kopiëren
Het bestand staat bijvoorbeeld op C:\testmap en heet testformulier.xls
welke aanvulling moet ik maken op bovenstaande macro