Private Sub CommandButton1_Click()
Dim Dossier As String
'adapter le cheemin
Dossier = 'C:\\Documents and Settings\\michel\\dossier\\excel'
ListFilesInFolder Dossier, True
End Sub
Private Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
'adapté de Ole P Erlandsen
'necessite d'aviter la reference Microsoft Scripting RunTime
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Set Fso = CreateObject('Scripting.FileSystemObject')
Set SourceFolder = Fso.GetFolder(SourceFolderName)
For Each FileItem In SourceFolder.Files
If Right(FileItem.Name, 4) = '.xls' Then ComboBox1.AddItem FileItem.Name
Next FileItem
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.subfolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
End Sub