Affichage fichiers d'un repertoire dans userfom

[Yazou]

Bonjour ,
J'ai un petit programme qui me donne la liste d'un repertoire , et maintenant cette liste je voudrais l'afficher dans un userform, je ne vois pas du tout comment faire, la liste étant tout le temps aléatoire.
Merci d'avance pour vos réponses
Yazou 😉

 

[Hellboy]

Bonjour Yazou

Essaie cette exemple:

[file name=Userform_Files.zip size=9302]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Userform_Files.zip[/file]

 

[Yazou]

Merci pour ton aide.
C'est tout à fait ce qu'il me faut. 🙂
Yazou

 

[Yazou]

Bonjour le forum!
J'ai essayé d'appliquer ce qu'il y avait dans l'exemple que l'on m'a donné. Mais j'ai un probléme avec la méthode FileType.ça me donne La methode Filetype de l'objet FileSearch a echoué.
Au niveau de
.FileType = msoFileTypeAllFiles
Je ne comprends pas car l'exemple que l'on m'a donné marche bien , mais quand je l'applique à mon probléme ça me donne une erreur a cette ligne.
Merci d'avance pour vos réponses
Yazou

 

[Hellboy]

Bonjour Yazou

C'est difficile a dire pourquoi ça ne marche pas. Je ne vois pas ton exemple concrèt. Je ne comprend pas non plus, ce que tu veux dire par ça marche et ça marche pas ??? Tu peux envoyer ta filiere si tu veux.

Maintenant, tu peux enlever cette ligne de commande.

FileType = msoFileTypeAllFiles

Elle n'est pas absolument nécessaire.

 

[excalibur]

bonjour yazou , hellboy , le forum un bout de code pour peut etre faire avancer le probleme salutations [file name=Classeur1_20050518140306.zip size=16493]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050518140306.zip[/file]

 

[Yazou]

Salut à tous,
Merci pour votre aide, c'est vrai que la ligne qui me donnait le buggue n'est pas obligatoire. Je pensais quelle permettait d'afficher seulement des fichiers .xls.
Merci beaucoup
Yazou

 

[Hellboy]

Bonjour

En passant, si tu veux que les fichier avec l'extension .xls
cette ligne de code:

.Filename = '*.*'

Tu la modifie de cette façon:

.Filename = '*.xls'

 

[Yazou]

Ah oki
Oui merci Hellboy! ça va me servir.
Yazou