Bonjour Pedro,
Merci pour ton aide. J'ai essayé d'ajouter ce code au mien, cependant, cela ne fonctionne pas : j'obtiens le message d'erreur "Fichier introuvable" alors que la macro devrait trouver 6 fichiers.
Voici le code :
Sub repCopierFichier()
Dim fso As Object, Dossier_origine$, Dossier_récepteur$, Fichier_cherché$, Reference$
Set fso = CreateObject("Scripting.FileSystemObject")
Dossier_récepteur = Range("F12")
Range("B12").Activate
Do Until ActiveCell = ""
Dossier_origine = ActiveCell
Fichier_cherché = ActiveCell.Offset(0, 1)
If Dossier_origine & "\" & Fichier_cherché Like "*" & ActiveCell.Offset(0, 7) & "*" Then
End If
fso.CopyFile Dossier_origine & "\" & Fichier_cherché, Dossier_récepteur & "\" & Fichier_cherché
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Ai-je un raté ?
Merci encore pour ton aide