Bonjour, à tous,
J'ai crée une Macro sous VBA afin de créer plusieurs répertoires dossier dans lesquels viennent se copier un fichier Excel type. Je crée ces répertoires à partir de cellules sélectionnées. Mes dossiers sont bien crée mais la copie de mon fichier Excel ne se fait pas.
Voici le code:
Public Sub Creation_repertoire2()
Dim c
Dim fso As Object, Src$, Dest$, Fich$
On Error Resume Next
'Répertoire de création des dossiers'
MkDir "U:\test"
'Boucle de calcul pour chaque cellules sélectionnées dans Excel
For Each c In Selection
'Création de dossier avec le nom des cellules Excel sélectionnées
MkDir "U:\test\" & c.Value
Set fso = CreateObject("Scripting.FileSystemObject")
'Répertoire où se trouve le fichier Excel à copier
Src = "U:\fichier excel\"
'Répertoire où les Excel seront copiés
Dest = "U:\test\c.Value\"
'fichier excel à copier dans chaque dossiers crées précédement'
Fich$ = "Allumage.xls"
'Copie du Excel dans le répertoire crée précédement'
fso.CopyFile Src & Fich, Dest & Fich
Next
End Sub
Lorsque je viens forcer la valeur de c.Value dans ma boucle avec le nom du dossier, la copie s'effectue. Donc ça doit venir de cette ligne:
'Répertoire où les Excel seront copiés
Dest = "U:\test\c.Value\
Mais je n'arrive pas à savoir pourquoi il ne reconnait pas le répertoire de Destination avec la variable c.
Si vous pouvez m'aider, ce serait vraiment sympa.
Cordialement,