Discussion :

[licpegpon]

Bonjour,
Dans un dossier A se trouve de très nombreux sous dossiers. Je souhaiterais récupérer dans une colonne d excel la liste des noms de ces sous dossiers. Des suggestions de macro ? Merci

Cdlt.
Jérôme

[QuestVba]

Salut,
Un petit coup de FAQ : https://excel.developpez.com/faq/?page=FichiersDir
Ou de post : https://www.developpez.net/forums/d9...sous-dossiers/

[licpegpon]

Merci pour le retour fulgurant !!
Cdlt
Jérôme

[licpegpon]

Bonjour,

Des suggestions de modifs pour que cette macro :

n'affiche que le premier niveau de sous-dossier.
Classer les résultats par ordre alphabétique.

Merci par avance.

Cdlt.
Jérôme

[kiki29]

Salut, à voir si curieux :

• Liste des fichiers d'un dossier : Win 32/64 Bits
• Liste des fichiers d'un dossier + Liens
• liste des fichiers avec visualisation de l'arborescence
• Liste des fichiers d'un dossier avec recherche récursive ou non via les APIs

[licpegpon]

Bonjour,
Merci pour votre réponse.
Pour ma part c est la liste des dossiers et uniquement des dossiers que je cherche. Par ailleurs je ne veux qu un seul niveau de sous dossier.....je ne veux pas avoir les sous dossiers des sous dossiers....si vous avez je suis preneur avec grand plaisir.

Cdlt.
Jérôme

[kiki29]

Salut, tu ne trouveras que rarement du tout cuit. A voir si curieux.

[licpegpon]

Merci beaucoup....

[patricktoulon]

bonsoir
un exemple simple non recursif qui liste seulement les sousdossiers du chemin de base

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim chemin$,lig&,sousdossier
    chemin = "C:\Users\polux\DeskTop\mondossier\"'chemin de base a adapter 
    sousdossier = Dir(chemin, vbDirectory)
    Do While sousdossier <> ""
        If GetAttr(chemin & sousdossier) = vbDirectory And Not sousdossier = "." Then
            lig = lig + 1: Cells(lig, 1).Value = chemin & sousdossier
            Debug.Print sousdossier
        End If
        sousdossier = Dir
    Loop
End Sub

Attention aux propriété eventuellement ajouté au dossier (caché,lecture seule,etc.....)que je ne prends pas en compte

[licpegpon]

Merci beaucoup....