Bonjour à tous,
Complètement nouveau dans le monde de excel et des Macro je me retrouve face à un problème que mes maigres compétences ne peuvent pas résoudre
J'ai un dossier modèle que j'aimerais copier coller x fois dans un autre dossier et renommer en utilisant la valeur de chaque cellule de ma colonne D
J'ai donc fait quelques recherche, découvert les macro et j'ai "codé" le code suivant :
Sub CreerDossier()
'On Error Resume Next
Dim Nom As String
Dim Fso As Object, Source As String, Destination As String
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each c In Range("D:D")
D .Name = c.Value
Source = "J:\Paie\ZZZ. PROJET\TEST"
Destination = "J:\Paie\ZZZ. PROJET\101. ADMINISTRATION DU PERSONNEL\Actifs\" & D. Name
Fso.CopyFolder Source, Destination, False
MsgBox "traitement ok"
Next c
End Sub
qui comme vous vous en doutez ne fonctionne pas...
J'en appel donc à votre aide et à votre générosité pour m'aider à résoudre ce problème
Merci d'avance à tous ceux qui prendrons la peine de me lire