XL 2016 Ouvrir un fichier avec ThisWorkbook.Path

[eduraiss]

Bonjour le forum

Voila j'ai une macro qui me permet d'ouvrir un fichier dans une dossier avec ThisWorkbook.Path

Workbooks.Open Filename:= _
ThisWorkbook.Path & "\Fichier Coronavirus.xlsm"

Mon fichier "Fichier Coronavirus.xlsm" change de nom toute les semaines suivant le numéro de semaine
EX:
Fichier Coronavirus S19.xlsm
Fichier Coronavirus S20.xlsm
Fichier Coronavirus S21.xlsm
Comment modifier la macro d'ouverture pour q'u'elle ouvre le fichier pour n'importe quelle semaine
Merci de votre aide

 

[eduraiss]

erreur d'execution '9'
l'indice n'appartient pas a la sélection

 

[sylvanu]

Il ne donne pas la ligne d'erreur ?

 

[jmfmarques]

Bonjour à tous
je doute assez que ce chemin existe
Monfichier = ThisWorkbook.Path & "\Fichier Coronavirus*.xlsm"

 

[fanch55]

Bonjour à Tous,

1 dossier Nommé EQUIPES S21, Dans ce dossier 4 fichiers

1. M2 Sxx
2. M3 Sxx
3. Z1 Sxx
4. Fichier coronavirus Sxx

Le fichier maître est-il le Fichier coronavirus ?
C'est à dire est-ce lui que vous lancez pour récupérer les données des fichiers 1,2 et 3 ?
Les fichiers 1,2 et 3 s'ils ne sont utilisés qu'à cela , n'ont pas besoin d'être ouverts .

 

[patricktoulon]

bonsoir

x=dir( ThisWorkbook.Path & "\Fichier Coronavirus*.xlsm")

if x<>"" then  x=ThisWorkbook.Path & "\"& x

msgbox  x

 

[eduraiss]

Re
Bonjour a tous
franck 55 non le fichier "Fichier coronavirus " n'est pas le mettre
j'ouvre par exemple le fichier 1
je déclenche une macro qui ouvre "Fichier coronavirus"
je copie un range
Je colle le range dans le fichier 1
et je ferme "Fichier coronavirus

Patricktoulon, je test pour voir
Merci

 

[fanch55]

Donc c'est l'inverse:
ce sont les fichier 1,2 et 3 qui ouvrent le 4 ?
Les 3 fichiers ont la même macro ?