XL 2013 Récupérer la liste des fichiers d'un répertoire qui contiennent le terme Activité

Chrystel01

XLDnaute Occasionnel
Bonjour,

J'essaie de récupérer dans un répertoire tous les fichiers qui contiennent le mot "Activité" mais cela ne fonctionne pas.
Par ailleurs, comment faire pour que soient pris en compte les formats xls et xlsx ?

Dir(ThisWorkbook.Path & "\*Activité.xls")

Pourriez-vous m'aider SVP ?

Merci d'avance et bonne journée

Chrystel
 

Chrystel01

XLDnaute Occasionnel
Bonjour kiki29, bonjour le Forum

Merci beaucoup.
Mais je n'ai pas de userform. Je cherche à identifier tous les fichiers du répertoire actif qui contiennent "Activité.xls" ou "Activité.xlsx" avec le code ci-dessous
Dir(ThisWorkbook.Path & "\*Activité.xls").

Vous sauriez comment faire ? Merci d'avance
 

Chrystel01

XLDnaute Occasionnel
Merci Kiki29 !

Je peux maintenant récupérer tous les fichiers contenant Activité.xls
compteur_dossier = Dir(ThisWorkbook.Path & "\*Activité*.xls")

mais je n'arrive pas à faire la combinaison pour ramener les fichiers .xlsx ?
compteur_dossier = Dir(ThisWorkbook.Path & "\*Activité*.xls";*Activité*.xlsx")

Merci par avance
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
290 754
Messages
1 910 207
Membres
176 538
dernier inscrit
Charlydebutant
Haut Bas