XL 2019 Bouton pour ouvrir un fichier Excel

S

st007

XLDnaute Barbatruc

• 14 Mai 2020

• #2

Dans la macro affectée à un bouton

VB:

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

Code:

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 14 Mai 2020

• #3

st007 à dit:

Dans la macro affectée à un bouton

VB:

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

Code:

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 14 Mai 2020

• #4

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

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 14 Mai 2020

• #5

st007 à dit:

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

Cliquez pour agrandir...

Et en utilisant : ThisWorkBook.path?

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 14 Mai 2020

• #6

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

VB:

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

 

Dernière édition: 14 Mai 2020

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 14 Mai 2020

• #7

st007 à dit:

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

VB:

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

Cliquez pour agrandir...

Et dans ce cas le code complet est?

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 14 Mai 2020

• #8

Tout court

 

Pièces jointes

• Classeur1.xlsm

  15.9 KB · Affichages: 8

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 14 Mai 2020

• #9

Oups désolé cela ne fonctionne pas

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 14 Mai 2020

• #10

Un "\" manquait ....

 

Pièces jointes

• Cours botanique.xlsm

  8.1 KB · Affichages: 4
• Classeur1.xlsm

  17.5 KB · Affichages: 7

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 14 Mai 2020

• #11

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"

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 14 Mai 2020

• #12

VB:

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

Désolé ne fonctionne toujours pas

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 14 Mai 2020

• #13

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 ????

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 14 Mai 2020

• #14

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

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 14 Mai 2020

• #15

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

 

Vote positif 0 Vote négatif