XL 2016 Code avec chemin d’accès

[eduraiss]

Bonjour
Voila, j'ai un dossier qui comporte quatre fichiers
le dossier se nomme "COMPTE CORONAVIRUS"
les fichiers
1
2
3
4
Dans le fichier 1 j'ai un code avec un chemin d'accés ,qui me permet d'extraire des infos des fichiers 2 3 4
voici le chemin
Const CHEMIN_DOSSIER = "Y:\GAL 2006.2007\GESTION EQUIPES\BASE EQUIPES\COMPTE CORONAVIRUS"

Ma demande est la suivante le chemin d'accés ouvre le dossier "COMPTE CORONAVIRUS"
mais le dossier ne se nomme pas toujours comme cela, il peut se nommé
EQUIPES S19, ou EQUIPES S20 voir autre
comment modifier le chemin d'accés afin d'ouvrir les 3 fichier 2 3 4 qui eux ont toujours le même nom

merci à vous

 

[fanch55]

Salut,
et si tu utilisais Thisworkbook.path au lieu de Chemin_Dossier ?

 

[patricktoulon]

bonjour
EQUIPES ouais mais le quel!!!???????

chemin=dir("Y:\GAL 2006.2007\GESTION EQUIPES*\BASE EQUIPES*\COMPTE CORONAVIRUS",vbdirectory)

msgbox chemin

l’aster-ixe tu le met après un des deux EQUIPES ou les deux (comme sur ce point tu n'a rien précisé)
devrait te sortir celui ou un de celui qui existe

mais c'est quand même là un gros défaut de raisonnement et il va y avoir des soucis dans l'avenir

 

[fanch55]

Si j'ai bien compris le souci :
Les 4 fichiers sont toujours dans un et un seul Dossier .
Ce dossier peut être n'importe où .
Le fichier 1 a une constante indiquant un chemin qu'il faut changer à chaque fois que le Dossier se balade .

Supprimer
Const CHEMIN_DOSSIER = "Y:\GAL 2006.2007\GESTION EQUIPES\BASE EQUIPES\COMPTE CORONAVIRUS"

et faire
remplacer CHEMIN_DOSSIER par ThisWorkBook.path dans tout le projet .

 

[eduraiss]

Re
Bonjour franc
j'essai

merci

 

[eduraiss]

Bonjour le forum

Re bonjour franch55
J'ai utilisé ThisWorkBook.path en remplacant CHEMIN_DOSSIER et cela fonctionne nickel
Par contre
les dossiers doivent communiqué entre eux
J'ai enregistré une macro

ChDir "C:\Users\utilisateur\Desktop\EQUIPES S20"
Workbooks.Open Filename:= _
"C:\Users\utilisateur\Desktop\EQUIPES S20\Données pénibilité gestes répétés.xlsm"

Mon soucis est que j'ouvre dans le dossier EQUIPES 20
Je créee des dossiers qui ont les 4 fichiers mais qui change de noms
Ex: EQUIPES S21 EQUIPES S22 etc.....
Comment pourrais-je adapter ma macro pour qu'elle fonctionne dans n'importe quel dossier

Merci à vous

 

[fanch55]

Bonsoir,

Le chdir ne sert à rien dans ce contexte, puisqu'on cible toujours les fichiers avec leur chemin complet.

J'ai besoin de mieux comprendre la situ :

Vous créez un dossier , dans celui-ci vous avez​

1 fichier maitre qui communique avec 3 autres Fichiers dans le même dossier.​

Si vous les ouvrez tous avec Thisworkbook.path, cela ne devrait pas poser Pb .​

Si c'est la macro enregistrée qui ne fonctionne pas,
il suffit de la modifier pour utiliser également la même racine :

ChDir "C:\Users\utilisateur\Desktop\EQUIPES S20"
Workbooks.Open Filename:= _
ThisWorkBook.Path & "\Données pénibilité gestes répétés.xlsm"

A moins que je n'eusse pas tout compris et que Données pénibilité gestes répétés.xlsm soit dans un autre Dossier ?

 

[eduraiss]

Re
Vous avez parfaitement bien compris
Je reste dans le même dossier et avec ThisWorkBook.Path je modifie mes chemins d’accès

Et cela fonctionne
juste pour être sûr ,ThisWorkBook.Path me permet de rester dans le même dossier??
car j'ai plusieurs dossiers nommé différemment
EQUIPES S21 EQUIPES S22 etc...

 

[fanch55]

ThisWorkBook.Path appelé par un fichier excel indique le chemin complet du répertoire dans lequel il se trouve et donc par conséquent permet d’accéder à tous les fichiers de ce Dossier .

Voili voilou.

 

[eduraiss]

Super

Merci beaucoup pour votre aide

Cordialement☺