Parcourir tous les sous repertoire [Résolu]

[cemyr]

Bonjour,

Existe t-il un "truc" simple tel que

Code :

1
2
3
4
 
For Each sous-rep In Monrep
    '...Mes choses à faire
Next rep

Pour réaliser un traitement sur l'ensemble des sous répertoires d'un dossier ?

[cemyr]

je répond à ma propre question :

Code :

1
2
3
4
5
6
7
8
 
 
Dim Rep As Scripting.Folder, SousRep As Scripting.Folder
 
Sub Mafonction()
 
For Each SousRep In Rep.SubFolders
For Each Fich In SousRep.Files

Ca fonctionne très bien (vu que je n'ai qu'un seul niveau de sous rep)

[wilfried_42]

Bonjour

voici un bout de code

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub lst_rep(chemin As String)
    Dim FSO As Object, SourceFolder As Object, SubFolder As Object
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(chemin)
    i1 = 0
    For Each SubFolder In SourceFolder.SubFolders
        i1 = i1 + 1
        Sheets("Feuil1").Cells(i1, 1) = SubFolder.Name
    Next SubFolder
End Sub

cordialement