Bonsoir,Bonjour
j'ai créer des macros pour la recherche des fichiers dans des dossiers différentes, est ca marche convenablement.
mais ne reçu pas de créer une commande pour lancer tous ces Boucles en même temps.
Sub BoucleFichiersJJ()
Dim Chemin As String, Fichier As String, i&, lig&, col&
With Feuil1
.Range("c10:I" & .Rows.Count).ClearContents ' Efface liste
lig = 10: col = 3
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
Chemin = .Cells(i, 1)
Fichier = Dir(Chemin)
Do While Fichier <> ""
.Cells(lig, col) = Fichier
Fichier = Dir()
lig = lig + 1 ' incrément N° de ligne
Loop
col = col + 1: lig = 10
Next
End With
End Sub