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

[Chrystel01]

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

 

[kiki29]

Salut, voir ici, cliquer sur Liste Fichiers, dans l'userform remplace *.pdf par *Activité.xls*
à adapter, alléger

 

[Chrystel01]

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

 

[kiki29]

Re, est-ce que le fichier fonctionne ? sinon voir la 2eme pj pour la syntaxe de recherche.

 

[Chrystel01]

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

 

[kiki29]

Re, répéter l'opération pour les fichiers xlsx ? comme tu n'as pas proposé d'extrait de ton code ...
Voir également http://boisgontierj.free.fr/
Gestion des fichiers et répertoires

 

[Chrystel01]

Merci Kiki29 !