Bonjour à ts ;-)
j'ai un pb avec ma liste de combo box :-( je n'arrive pas à extraire les
fichiers.xls dans un réperoire pour les utiliser ensuite dans un classeur
sur des feuilles!
Pb :-( :
- Avoir le combo box avec la liste des fichiers présents dans mon rep.
- Sélectionner ensuite le fichier à utiliser.
- mettre mes données de la feuille select. dans le class. active.
Merci d'avance si qqn peut m'aider !
Voici mon debut de prog. :
Private Sub ComboBox1_change()
Dim i As Integer
Dim fs
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "C:\Test"
.SearchSubFolders = True
.FileName = "*.xls"
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then '.Execute() > 0
'MsgBox "There were " & .FoundFiles.Count & _
' " file(s) found."
For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)
ComboBox1.MatchEntry = fmMatchEntryFirstLetter
ComboBox1.AddItem .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
end sub