Reconnaitre un fichier excel

[Eric]

Bonjour,

Ya-t-il une fonction VBA deja existante qui permet de reconnaitre un fichier Excel d'un autre fichier?

J'utilise le simple code suivant et j'aimerais qu'il affiche dans la listbox1 seulement les fichiers Excel ... est ce possible?

/*******************************
Dim fso As Object, dossier As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(chemin & "\")
Set sousdossier = dossier.SubFolders

For Each Flder In sousdossier

Set fichier = Flder.Files
For Each fl In fichier
ListBox1.AddItem fl.Name
Next fl

Next Flder

/**********************************



Merci!

Eric

 

[STéphane]

bonjour

avec la méthode filesearch tu peuxspécifier que tu veux des documents de type excel.


avec ta méthode je crois que ç'est également possible mais pas sûr
cherche sur http://groups.google.fr, je te conseille de restreindre ta recherche comme suit :
group:microsoft.public.fr.excel

bye
stephane

 

[@+Thierry]

Bonsoir...

De toute façon la méthode décrite par Eric vient sûrement du MPFE ou de par là car elle est signée Frédérique Sigonneau (fso)...

;-)

@+Thierry