fichier(s) avec extension ". pdf" pas trouvé

[gosselien]

Bonjour à tous,

on me donne ce fichier qui "devrait" lister les fichiers d'un répertoire choisi;

le problème est le suivant:

Il liste bien une partie des fichiers XLS, XLSX et autres mais pas les ".PDF" ni ".JPG"

Je ne trouve pas mon erreur dans la ligne:
Trouvé = Not IsError(Application.Match(X, Array(".XLS", ".XLSM", ".XLSX", ".DOC", ".DOT", ".DOCX", "*.PDF", "*.JPG"), 0))

Quelqu'un sait me dire ce qui se passe ?

Question subsidiaire: je n'ai pas de réseau , mais la suite serait de chercher les mêmes type de fichier en réseau, ce code est il suffisant ou faut il autre chose ?

Merci

 

[Paf]

Re : fichier(s) avec extension ". pdf" pas trouvé

Bonjour gosselien

le caractère "*" ne semble pas pris comme joker avec Application.Match, il n'y a donc aucun fichier se terminant par *.JPG et *.PDF.

en supprimant les "*" dans le deuxième
Trouvé = Not IsError(Application.Match(X, Array(".XLS", ".XLSM", ".XLSX", ".DOC", ".DOT", ".DOCX", "*.PDF", "*.JPG"), 0))

ca fonctionne

A+

 

[gosselien]

Re : fichier(s) avec extension ". pdf" pas trouvé

Bonjour,

de fait... pas pensé que ça ne fonctionne pas dans cette fonction

Merci !!!