userform combobox

[jo]

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

 

[JPM]

Salut jo

Tu devrait mettre ton programme dans l'Initialize de l'userform et l'ouverture du fichier sur le comboBox ( sur clic ou change)
Pour la suite il faudrait + d'infos

A+ JPM

 

[jo]

Merci JPM 🙂

Je vais essayer, un bon conseil !
Bye bye !