Création d'une liste de classeur dans une combobox

[rlebigre]

Bonjour le forum.

Je souhaiterais créer une liste de classeur Excel dans une combobox d'userform. Ces classeurs sont rangés dans des sous dossiers dans un dossier qui regroupe tous les dossiers

Quelqu'un pourrait m'aider.

A+
Rlebigre

 

[MichelXld]

bonsoir

j'espere que cet exemple pourra t'aider
la procedure boucle sur tous les repertoires et sous repertoires d'un dossier et insere le nom des classeurs Excel qu'ils contiennent , dans la ComboBox

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

bonne soiree
MichelXld