Multiples dossiers (liste)

Bonjour a tous,

j'ai passé un bout de temps sur un pti code à la "bip"...

avec le code ci-dessous (qui fonctionne) je cherche tous les fichiers dans le dossier (lien du dossier C:....) dans la cellule B2. par contre je n'arrive pas à faire en sorte que cette recherche de fichier se fasse dans 2 ou trois dossier ou les liens sont dans les cellule C2,D2....

les dossiers sont nommés A,B,C et sont à des emplacements différents du PC

C:\Users\User\Desktop\dossierA,

C:\Users\User\Image\dossierB,

C:\Users\User\Desktop\dossierC,

les liens sont écrits dans les cellules B2 C2 C3 de la feuille 2, les résultats doivent s'afficher sur des cellules cible sur la feuille 1

merci d'avance pour votre aide précieuse...

Sub Document()

Dim Fichier As String
Dim L_Ligne As Variant

L_Ligne = L_Ligne + 1

Répertoire = Range("B2")
Fichier = Dir(Répertoire)

Do While Fichier <> ""
Cells(L_Ligne, 1).Select
ActiveCell.FormulaR1C1 = Fichier

L_Ligne = L_Ligne + 1
Fichier = Dir
Loop

End Sub

Salut Sad,

Voici ci-dessous un code qui fonctionne chez moi :

Sub ListFile()
'#Liste la totalité des fichiers présent dans les dossiers indiqué en colonne B à partir de la ligne 2
Dim y As Long, a As Long
Dim Fichier As String, chemin As String
a = 2
For y = 2 To Range("AZ2").End(xlToLeft).Column
    chemin = Cells(2, y).Text & "\"
    Fichier = Dir(chemin)
    If Fichier <> "" Then
        Do While Fichier <> ""
                Sheets("Feuil1").Cells(a, 1) = chemin & Fichier
                Fichier = Dir
                a = a + 1
        Loop
    End If
Next
End Sub

Alors attention, je l'ai programmé pour quelle fonctionne selon la disposition que tu nous a indiqué.

C'est à dire le chemin vers les dossiers est dans une feuille nommée "Feuil2" en cellule B2 puis C2 etc...

Et le chemin vers les fichiers vont dans une feuille nommée "Feuil1" en colonne A (tu nous a pas dit où mettre les résultats)

Donc voilà

Je te laisse essayer et revenir vers nous si tu a des questions !

bonjour

salut au passage Juice

pourquoi VBA ?

installer PQuery sur Excel 2010

https://www.youtube.com/watch?v=gwW2CDdvUUs

il est inclus dans les Excel plus récents

menu Power Query Obtenir de classeur ou de répertoire

naviguer vers le A

refaire idem pour B puis C

par la suite, il te suffira de cliquer "actualiser"

pas une seule ligne de code à taper, hyper-fiable.

amitiés à tous

Bonjour,

Merci Juice c'est parfait !!!

bonne journée.