XL 2019 Bouton pour ouvrir un fichier Excel

[Toubabou]

Je voudrai en cliquent sur le bouton, ouvrir un fichier excel (appelé "cours botanique") qui pourrait se trouver soit sur mon disque dur, soit sur un disque dur externe. Dont le chemin est :
\cours jm\botanique\cours botanique,xlsm
Pourriez-vous m’aider ?

 

[st007]

Dans la macro affectée à un bouton

Workbooks.Open Filename:="C:\Users\Toto\Downloads\coucou.xlsx"

 

[Toubabou]

Dans la macro affectée à un bouton

Workbooks.Open Filename:="C:\Users\Toto\Downloads\coucou.xlsx"

Merci st007, mais cela ne fonctionne que si l'on reste sur le DD. Mais pas si le support change comme une clef USB ou DDE

 

[st007]

Il te faudra bien un moment donné lui dire ou se trouve ton fichier ...
même si tu crée autant de racourcis sur ton bureau et que tu essaie d'accéder un par un à tes racourcis en zappant les messages d'erreur

 

[Toubabou]

Il te faudra bien un moment donné lui dire ou se trouve ton fichier ...
même si tu crée autant de racourcis sur ton bureau et que tu essaie d'accéder un par un à tes racourcis en zappant les messages d'erreur

Et en utilisant : ThisWorkBook.path?

 

[st007]

Si tu veux, çà revient à lui dire ou se trouve ton fichier ...
puisque tu y a mis le fichier contenant cette macro

Workbooks.Open Filename:=ThisWorkbook.Path & "\Cours botanique.xlsm"

 

[Toubabou]

Si tu veux, çà revient à lui dire ou se trouve ton fichier ...
puisque tu y a mis le fichier contenant cette macro

Workbooks.Open Filename:=ThisWorkbook.Path & "Cours botanique.xlsm"

Et dans ce cas le code complet est?

 

[st007]

Tout court

 

[Toubabou]

Oups désolé cela ne fonctionne pas

 

[st007]

Un "\" manquait ....

 

[jmfmarques]

Bonjour
ThisWorkbook.Path est le chemin complet du classeur principal.
Si le fichier à ouvrir est dans l'un des dossiers (disons toto) de ce classeur, il est bien clair qu'il faut alors le préciser --->>
Workbooks.Open Filename:=ThisWorkbook.Path & "\toto\Cours botanique.xlsm"

 

[Toubabou]

Sub Macro1()
Workbooks.Open Filename:=ThisWorkbook.Path & "\Cours JM\Botanique\Cours Botanique.xlsm"
End Sub

Désolé ne fonctionne toujours pas

 

[st007]

En ayant télecharger les 2 fichiers du #10, le verdict est-il identique ???

un espace ou la casse et tout plante, au mieux, un message d'erreur qui indique ????

 

[Toubabou]

Visiblement il ne trouve pas le chemin. Il cherche sur C: alors qu'il est sur F: (ma clé USB)

 

[st007]

C'est ce que je sous entendais tout a l'heure, this workbookpath, dit bien le chemin de "celui-ci" de fichier ...
cela doit fonctionner si tes deux fichiers sont sur le même disque ...
il te faut au moins placer le fichier contenant ce bouton et cette macro sur le F:/ donc ta clé usb