Afficher le contenu d'un dossier dans une combobox

C

Compte Supprimé 979

Guest

• 2 Mai 2007

• #2

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 modification par un modérateur: 2 Mai 2007

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 2 Mai 2007

• #3

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.

 

Pièces jointes

• Lister_Fichiers.zip

  10.7 KB · Affichages: 558

Vote positif 0 Vote négatif

nico62370

XLDnaute Nouveau

• 3 Mai 2007

• #4

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


Merci à vous deux ! çà marche !

 

Vote positif 0 Vote négatif