Copies multiple d'un fichier Excel dans plusieurs répertoire

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,

Bonjour Sherminator.

En écrivant

Dest = "U:\test\c.Value\"

entre guillemets tu indiques que c.Value est du texte simplement et non pas une variable.

Essaye ainsi :

Dest = "U:\test\" & c.Value & "\"

@thebenoit59

Merci, je viens d'essayer et ça fonctionne.