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

kiki29

XLDnaute Barbatruc

• 15 Septembre 2021

• #2

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

 

Pièces jointes

• 1.png

  7 KB · Affichages: 16
• 2.png

  34.4 KB · Affichages: 16

Dernière édition: 15 Septembre 2021

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 15 Septembre 2021

• #3

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 15 Septembre 2021

• #4

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

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 15 Septembre 2021

• #5

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 15 Septembre 2021

• #6

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

 

Dernière édition: 16 Septembre 2021

Vote positif 0 Vote négatif

Solution

C

Chrystel01

XLDnaute Occasionnel

• 17 Septembre 2021

• #7

Merci Kiki29 !

 

Vote positif 0 Vote négatif