XL 2016 Ouvrir un fichier avec ThisWorkbook.Path

E

eduraiss

XLDnaute Accro

• 11 Mai 2020

• #16

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Mai 2020

• #17

Il ne donne pas la ligne d'erreur ?

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 11 Mai 2020

• #18

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 11 Mai 2020

• #19

Bonjour à Tous,

eduraiss à dit:

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

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

Cliquez pour agrandir...

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 .

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Mai 2020

• #20

bonsoir

VB:

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

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

msgbox  x

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 11 Mai 2020

• #21

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 11 Mai 2020

• #22

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 ?

 

Vote positif 0 Vote négatif