Afficher le contenu d'un dossier dans une combobox

nico62370

XLDnaute Nouveau
Bonjour,

Je souhaite afficher dans un combo box, la liste des fichiers excel disponible dans le D:\facture\.

J'ai utilisé cela :

privata sub Combobox1()
comboBox1.Clear
fic = Dir("d:\facture\*.xls")
While fic <> ""
comboBox1.AddItem fic
fic = Dir()
Wend
end sub

mais j'obtiens :

Un cadre vide....

Merci de vos aides...
 

BrunoM45

XLDnaute Barbatruc
Re : Afficher le contenu d'un dossier dans une combobox

Salut Nico62370,

Ton code est mal placé, il faut le mettre à l'activation de ton USF
Code:
Private Sub UserForm_Activate()
  Dim I As Integer, Chemin As String, Fichier As String
  Chemin = "d:\facture\*.xls"
  Fichier = Dir(Chemin)
   Do While (Len(Fichier) > 0)
    Me.ComboBox1.AddItem Fichier
    Fichier = Dir()
   Loop
End Sub
Voilà ;)
 
Dernière édition:

JYLL

XLDnaute Impliqué
Re : Afficher le contenu d'un dossier dans une combobox

Bonsoir Nico, le Forum,

Voici un classeur qui liste les fichiers dans une userform1 et également dans la feuille du classeur. Il faut adapter le chemmin à ton problème.

Bon test.
 

Fichiers joints

nico62370

XLDnaute Nouveau
Re : Afficher le contenu d'un dossier dans une combobox

:)
Merci à vous deux ! çà marche !
 

Haut Bas