XL 2016 Lancement des boucles

[MOEZ-TUN]

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.

 

[sylvanu]

Bonsoir Moez-Tun,
Essayez avec cette boucle en PJ.

 

[Jacky67]

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.

Bonsoir,
Hello sylvanu
Essaye avec cette macro

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