Option Explicit
Dim NbFolder As Integer, i As Integer
Sub listerDossiers()
Dim Dossier As String
Dossier = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'
ListFilesInFolder Dossier, True
NbFolder = 0
i = 0
End Sub
Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' adapté de Ole P Erlandsen
'********************************************
'necessite d'activer la reference Microsoft Scripting RunTime
'********************************************
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Set Fso = CreateObject('Scripting.FileSystemObject'Â'Â')
Set SourceFolder = Fso.GetFolder(SourceFolderName)
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
i = i + 1
Cells(i, 1) = SubFolder.Path
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
End Sub