Chemin d'accès variable

Bonjour,

Ce sujet a déjà été évoqué mais je n'ai pas réussi à adapter les propositions à mon cas. Je vais chercher plusieurs fichiers xls dans un même dossier via une macro. Actuellement, j'utilise le chemin d'accès complet. Vous trouverez ci-dessous une illustration.

ChDir "C:\CHEMIN ACCES"
ClasseurGroupe = Dir("C:CHEMIN ACCES\*groupe*.xlsm")
ClasseurResto = Dir("C:CHEMIN ACCES\*resto*.xlsm")

Je cherche à dupliquer ces fichiers dans des dossiers mensuels et donc à "variabiliser" mon chemin d'accès. Le fichier où la macro sera utilisée est le "Classeur Groupe". J'ai essayé d'utiliser curdir et workbook.path mais je ne suis pas parvenu à retrouver le chemin.

Pouvez-vous m'aider?

Merci par avance,

Bonjour,

à mon avis il te manque un \

pour rendre variable le chemin, mets le dans une ... variable

monChemin = "C:\CHEMIN ACCES\"
ClasseurGroupe = Dir(monChemin & "*groupe*.xlsm")

ou bien je n'ai pas compris ton sujet

n'hésite pas à mettre un fichier ...

Mon message n'est effectivement pas très clair.

Je cherche "simplement" à remplacer le chemin d'accès C:\USERS\DUPONT\2019\02\ par une variable qui ira cherche le chemin du fichier actif, ce qui permettra à la macro de fonctionner si je duplique mon fichier.

J'espère avoir été plus clair.

Merci par avance,

ThisWorkbook.Path

donne le chemin du fichier actif dans lequel se déroule la macro

ClasseurGroupe = Dir(ThisWorkbook.Path\*groupe*.xlsm")

Cet extrait de code est invalide. Peux-tu me dire où est mon erreur?

Merci

ClasseurGroupe = Dir(ThisWorkbook.Path & "\*groupe*.xlsm")

ou bien

monChemin = ThisWorkbook.Path
ClasseurGroupe = Dir(monChemin & "\*groupe*.xlsm")

Merci beaucoup !

Rechercher des sujets similaires à "chemin acces variable"