Fichiers excels dans une listebox

[Sylvain]

bonjour à tous,

j'aimerais créer une liste des fichiers excels situés dans un répertoire par exemple "éleveur" dans une listebox d'un userform. Ensuite, on sélectionne le fichier que l'on veut supprimer et après validation destruction du fichier.

Dans le fichier joint, j'ai créer un userform qui est sans doute plus explicite.

Merci du conseil

sylvain

 

[arnaud]

salut ,

je te joins ton fichier modifié.
Il faut juste que tu change les chemins car j'en ai mis des bidons pour tester.

 

[Sylvain]

Rebonjour arnaud,

Tout d'abord merci ça marche du tonnerre mais serait-it possible de visualiser dans la listebox que les fichiers excels ?

Merci encore

Sylvain

 

[arnaud]

re,


change

ListBox1.AddItem f1.Name

par

If (LCase(Right(f1.Name, 4))) = ".xls" Then ListBox1.AddItem f1.Name

 

[Sylvain]

Re,


Merci beaucoup arnaud pour ton coup de main

chiao

sylvain