Afficher le contenu d'un dossier dans une combobox

[nico62370]

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...

 

[Compte Supprimé 979]

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

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à

 

[JYLL]

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.

 

[nico62370]

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


Merci à vous deux ! çà marche !