XL 2010 Lister un dossier comportant des sous-dossiers

Magic_Doctor · 14 Mai 2022

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é :

VB:

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 · 14 Mai 2022

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 · 14 Mai 2022

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é · 14 Mai 2022

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 · 14 Mai 2022

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 · 14 Mai 2022

Bonsoir

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

Dudu2 · 14 Mai 2022

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

Staple1600 · 14 Mai 2022

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 · 14 Mai 2022

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

Dudu2 · 14 Mai 2022

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 · 14 Mai 2022

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

Staple1600 · 15 Mai 2022

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 · 15 Mai 2022

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 · 15 Mai 2022

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

FAQ Excel

excel.developpez.com

Magic_Doctor · 15 Mai 2022

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.

XL 2010 Lister un dossier comportant des sous-dossiers

Magic_Doctor

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

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

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

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

kiki29

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

FAQ Excel

Magic_Doctor

XLDnaute Barbatruc

Discussions similaires