XL 2010 Lister un dossier comportant des sous-dossiers

[Magic_Doctor]

Bonjour,

Je voudrais, comme le titre l'indique, lister un dossier comportant des sous-dossiers.
Supposons que le dossier, dans le disque "G", s'intitule "Musique".
Ses sous-dossiers : "Blues" | "Classic" | "Folk" | "Jazz" | "Tangos Mortels" ...
Mais, par exemple, dans "Jazz" il y a d'autres sous-dossiers : "Guitare" | "Piano" | "Saxophone" ...
Et dans "Guitare" : "Emily Remler" | "Grant Green" | "Joe Pass" | "Wes Montgomery" ...

Pour récupérer tous les noms de fichiers d'un dossier unique, j'ai trouvé :

Sub Listage()

    Dim Dossier$, Fichier$, i%
  
    Dossier = "G:\iPod\"  'il n'y a ici qu'un seul dossier
    Fichier = Dir(Dossier)
    i = 0
    Do While Fichier <> ""
        i = i + 1
        Worksheets(1).Range("A" & i) = Fichier
        Fichier = Dir
    Loop
End Sub

Comment faire pour récupérer aussi la totalité des contenus de tous les sous-dossiers ?

 

[Dudu2]

Bonjour @Magic_Doctor,

Je comprends pas bien ce que tu veux.
- Lister les fichiers d'un dossier
- Lister les sous-dossiers d'un dossier
- Lister les fichiers & les sous-dossiers d'un dossier
- Lister les fichiers d'un dossier et de ses sous-dossiers
- Autre ?

 

[Magic_Doctor]

Bonjour Dudu2,

Dans le dossier "racine" ("Musique" en l'occurrence) il peut éventuellement y avoir des fichiers. Ce dossier "racine" se subdivise (ce qui est logique) en plusieurs sous-dossiers, chacun étant un genre de musique différent ("Classic", "Pop", "Funk"...), et chaque genre comporte lui-même des sous-dossiers, correspondant chacun à un groupe ou interprète différent. Par exemple dans le genre "Jazz", il y a "Contrebasse", "Piano", "Saxophone"... Dans "Saxophone", il y a "Alto", "Ténor", "Baryton"... Dans "Alto" il y a "Art Pepper", "Charlie Parker", "Julian Connonball Adderley"...
Le but, c'est de tout récupérer depuis la racine jusqu'au dernier sous-dossier ou "sous-sous-dossier".

 

[Efgé]

Bonjour à tous
Peut-être une solution de Roland M

[Résolu]Recherche windows à partir d'excel

Bonjour à tous, Je cherche à lancer une recherche windows à l'aide d'excel et voila un bon moment que je bloque. Je saurais le faire à la main en créant une routine qui lit chaque nom de fichiers mais ce serait une usine à gaz monstrueuse. En tout cas dans l'etat de mes connaissances. Mon...

www.excel-downloads.com

Cordialement

 

[Dudu2]

Oui, j'ai bien compris la structure.
Donc je comprends que tu veux récupérer tous les fichiers du dossier et de ses sous-dossiers.

 

[Staple1600]

Bonsoir

Personnellement je ferais ceci
En étant à la racine du dossier
dir /S /B /ON >liste.xls
start chemin\liste.xls

 

[Dudu2]

Ou en VBA comme dans cet exemple. Le code permet optionnellement de récupérer dates et tailles des fichiers.

 

[Staple1600]

Bonsoir Dudu2

Oui, mais j'aime de temps en temps faire un tour dans l'invite de commande

On pourrait aussi faire du PowerShell
(D'ailleurs il y a fil où j'ai du posté un script qui fait cela)
Le voilou

XL 2010 - exif photo situées dans des sous-dossiers

bonjour à tous, désolé par avance si j'ai mal cherché... je souhaite récupérer des données exif d'image situées dans des sous-dossiers. J'ai trouvé du code pour le faire dans un dossier mais pas dans des sous dossiers j'ai des centaines de sous dossiers et je ne peux pas les faire un par...

www.excel-downloads.com

D'ailleurs tu as du participer à ce fil avec patricktoulon, non ?

 

[kiki29]

Salut, à voir : Arborescence d'un répertoire (dossier) et ses fichiers (ou du disque dur)

 

[Dudu2]

Salut @Staple1600,
Oui c'est plus direct avec l'invite de commande.
Dans le fichier VBA posté, j'ai ajouté les Hyperliens, comme c'est de la musique ça permet de la lire directement.
Et si nécessaire virer le warning à chaque clic:

Redirecting

 

[Dudu2]

Et l'ajout des hyperliens peut bien sûr aussi être fait sur la liste générée en CMD.

 

[Staple1600]

Bonjour le fil

Dudu2
Pour la musique, je laisserai Excel hors du coup.
J'utiliserai (pour ne pas me fouler) Groove Musique

Merci pour le lien sur le warning (je mets cela dans me besace)

 

[Magic_Doctor]

Bonjour à tous,

En fait ce que je désire est plus simple : obtenir la liste et uniquement la liste (ni lien, ni adresse... du texte, c'est tout !) de tous les fichiers contenus dans un dossier et tous ses sous-dossiers.
J'ai pris comme exemple la musique, mais ç'aurait pu être des pdf, des images... bref, n'importe quoi.
Je viens de voir le fichier de Roland M, quel boulot ! Une vraie perle !

J'en profite, pour les amateurs de musique, pour joindre cette minuscule application que j'utilise depuis au moins une bonne quinzaine d'années. Il suffit de la mettre dans un dossier musical et, instantanément, elle dresse une liste aléatoire de tous les morceaux de musique contenus dans un dossier et ses sous-dossiers, et on n'a plus qu'à écouter ! À partager sans modération.

 

[vgendron]

bonjour
une simple recherche google devrait te donner des solutions simples à mettre en oeuvre

FAQ Excel

FAQ Excel

excel.developpez.com

 

[Magic_Doctor]

Re,

Dans mon 1er post, je donne une solution simple et rapide pour extraire tous les noms de fichiers d'un dossier unique, mais si ce dossier comporte des sous-dossiers, là je ne sais plus faire. Peut-être au travers d'une boucle qui passerait en revue tous les éventuels sous-dossiers.