Bonjour,
Existe t-il un "truc" simple tel que
Pour réaliser un traitement sur l'ensemble des sous répertoires d'un dossier ?Code:
1
2
3
4 For Each sous-rep In Monrep '...Mes choses à faire Next rep
Version imprimable
Bonjour,
Existe t-il un "truc" simple tel que
Pour réaliser un traitement sur l'ensemble des sous répertoires d'un dossier ?Code:
1
2
3
4 For Each sous-rep In Monrep '...Mes choses à faire Next rep
je répond à ma propre question : 8-)
Ca fonctionne très bien (vu que je n'ai qu'un seul niveau de sous rep)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
Bonjour
voici un bout de code
cordialementCode:
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