Discussion :

[aliciabyn]

Bonjour,

Je suis à la recherche d'une macro VBA pour récupérer les noms de dossiers présents dans un dossier.
Je précise bien nom de dossiers car je suis parvenue à récolter les noms de FICHIERS dans un dossier (avec la fonction enumfichiers) et à me les mettre dans un classeur excel mais pas les noms de DOSSIERS dans le dossier.

Auriez-vous une solution?

Merci beaucoup

[BENNASR]

La demande n'est pas claire au moins pour moi ... mais si tu cherches le chemin d'un classeur :

Code :

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

Range("A1").Value = ThisWorkbook.Path

[Menhir]

Je suis à la recherche d'une macro VBA pour récupérer les noms de dossiers présents dans un dossier.
Je précise bien nom de dossiers car je suis parvenue à récolter les noms de FICHIERS dans un dossier (avec la fonction enumfichiers)

Je n'ai pas consulté la fonction que tu cites mais à priori, c'est la même méthode en ajoutant vbDirectory en second paramètre de la fonction Dir().
https://docs.microsoft.com/fr-fr/off...p/dir-function

[patricktoulon]

re
bonjour

si tu veux les sub dossier et subsub dossiers etc... et les lister dans l'ordre, dir dans une fonction recursive n'est pas la meilleur solution ,préférer le fso

si ce qui t'interesse c'est juste les dossier d'un dossier ( sans recherche recursive d'un des dossier )alors dir conviendra tres bien

un petit exemple avec fso
je me permet meme l'indentation automatique dans la grille et la liste est dans l'ordre
teste cela dans un classeur vierge et met ton dossier en parametre dans la sub appel
supprime ce qui est entre les deux lignes d'etoiles pour ne lister que les dossiers,sub dossiers,sub sub dossiers ,etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Public nb As Integer
 
Sub Appel()
Dim chemin As String
    nb = 0
    chemin = "D:\"'remplacer lechemein par celui de ton dossier ici 
    Lister chemin
End Sub
 
 
Public Function Lister(chemin As String, Optional Ext As String = ".*")
Dim fs, Rep As Variant, NewRep$, Nomfich$, fiche$
    Set fs = CreateObject("Scripting.FileSystemObject")
     '*****************************************************************************************
     'si tu veux lister les fichiers aussi
     'Lister = fs.GetFolder(chemin).Files.Count
    If chemin <> "D:\System Volume Information" And Not chemin Like "*$RECYCLE*" Then
    Nomfich = Dir(chemin & "\*" & Ext)
    Do While Nomfich <> ""
        nb = nb + 1
        fiche = chemin & "\" & Nomfich
        Cells(nb, UBound(Split(fiche, "\"))) = fiche 'liste dans la feuille de calculs active
        Nomfich = Dir()
    Loop
    End If
    '********************************************************************************************
 
    'Pour chaque sous-répertoire, appel récursif de Lister
     If chemin <> "D:\System Volume Information" And Not chemin Like "*$RECYCLE*" Then
    For Each Rep In fs.GetFolder(chemin).SubFolders
        nb = nb + 1
          Cells(nb, UBound(Split(Rep.Path, "\"))) = Rep.Path
         NewRep = Lister(Rep.Path, Ext)
    Next Rep
End If
End Function

[aliciabyn]

Merci beaucoup ça fonctionne !