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

Réponses
19
Affichages
2 K

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 841
dernier inscrit
ferid87