Recherche de sous-repertoires

[Eric]

Bonjour,

J'aimerais avoir la liste de tous les sous-répertoires d'un répertoire donné et entrer ces noms de répertoires dans un tableau. Comment puis-je m'y prendre???

Merci

Eric

 

[@+Thierry]

Bonsoir Eric

Cette macro de Frédéric Sigonneau devrait faire ton bonheur. (A lancer depuis la macro 'Test" sur une feuille vierge).

Bien sur "c:\Mes Documents" à remplacer par là où tu veux pointer. (a mettre en variable si nécessaire)


Sub test()
TousLesDossiers "c:\Mes Documents", 0
End Sub

Sub TousLesDossiers(LeDossier$, Idx As Long)
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)

'examen du dossier courant
For Each Flder In Dossier.SubFolders
Idx = Idx + 1
Cells(Idx, 1).Value = Flder.Path
Next

'traitement récursif des sous dossiers
For Each sousRep In Dossier.SubFolders
TousLesDossiers sousRep.Path, Idx
Next sousRep
Set fso = Nothing

End Sub 'fs


Merci Frédéric
Bonne Nuit Eric
Bonne Nuit ou Bonjour le forum
@+Thierry