Sub LaJolieMacro()
'Un constante contenant le nom du dossier où se trouvent les fichiers
Const [COLOR=red]LeDossier[/COLOR] As String = "[COLOR=red]C:\bnbnnb\nvnvnvn\[/COLOR]"
'Référencera une cellule de la colonne A (1)
Dim c As Range
'Un compteur de boucle
Dim i As Long
'Travailler sur la feuille qui contient la colonne A
'Remplacer le nom de la feuille qui contient les noms de fichier
With Sheets("[COLOR=red]nom_de_la_Feuille_qui_contient_les_noms_de_fichier[/COLOR]")
Do
i = i + 1
'Appel de la macro qui va faire le travail sur le fichier passé en paramètre
Call [COLOR=red]LaMacroQuiFaitLeTravailSurLeFichier[/COLOR](LeDossier & .Cells(i, 1))
'Boucle tant qu'on ne trouve pas une cellule vide en A:A
Loop While Not IsEmpty(.Cells(1, i))
End With
End Sub
Sub [COLOR=red]LaMacroQuiFaitLeTravailSurLeFichier[/COLOR]([COLOR=red]LeNomCompletDuFichier[/COLOR] As String)
'........
'.........Ouverture du fichier
'.........Copiage de la feuille dans le fichier
'.........Fermeture du fichier
End Sub