Public xFSO As FileSystemObject, xSourceFolder As Folder, xSubFolder As Folder, xFileItem As File
Sub Essai() ' ******** tu te positionnes ici et tu fais F5 ou F8 pour exécuter pas à pas
InitFSO 'en 1'
RepDeBase$ = "E:\Documents\PERSO_GESTION" ' adapter
ListeFichiersRepSousReps RepDeBase$ 'appel procédure
ReinitVarsFSO 'en dernier
End Sub
Private Sub InitFSO()
Set xFSO = New Scripting.FileSystemObject
End Sub
Private Sub ReinitVarsFSO()
Set xFSO = Nothing: Set xSourceFolder = Nothing: Set xSubFolder = Nothing: Set xFileItem = Nothing
End Sub
Private Sub ListeFichiersRepSousReps(RepDeBase$) 'appel récursif
On Error GoTo Suite
Set xSourceFolder = xFSO.GetFolder(RepDeBase$)
For Each xFileItem In xSourceFolder.Files
MsgBox xFileItem.Name
Next
For Each xSubFolder In xSourceFolder.SubFolders 'récursivité ici, suite sous reps !?
If (xSubFolder.Attributes And 1024) = 0 Then ListeFichiersRepSousReps xSubFolder.Path
Next
Suite:
End Sub