Remplir un listebox avec tous les fichier contenant l'extension Xls d'un dossier [Résolu]

Signaler
Messages postés
91
Date d'inscription
mardi 8 avril 2003
Statut
Membre
Dernière intervention
15 mars 2013
-
Messages postés
111
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
2 avril 2010
-
Bonjour à tous et toutes

Voila mon petit problème :
je travaille en VBA sous Excel 2003
Je souhaite intégrer (remplir) dans une listebox tous les fichiers Excel contenu dans un dossier.
Voici ce que j'avais imaginé

Dim fso, f, fc
Dim racine



racine = "D:\Mes Documents\Administration\2007"
Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.Getfolder(racine)  
  For Each fc In f.Subfolders 
    ListBox1.AddItem fc.Name     
  Next
  Set fso = Nothing


je rempli bien ma liste mais uniquement avec des noms de dossier, ce qui ne vas pas
Auriez vous une solution pour m'aider
merci d'avance
JF

1 réponse

Messages postés
111
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
2 avril 2010
1
Salut,
il faut peur etre remplacer f.Subfolders par f.files?