Ouvrir un fichier Excel en VBA sans mettre le chemin absolu

[Xavier]

Bonjour à tous. J'ai un petit problème. J'aimerai savoir comment on peut ouvrir un fichier Excel en VBA sans avoir à préciser le chemin Absolu. En fait je lance un fichier nommé "fichier1.xls" par exemple, et dans ce fichier, j'ai un bouton associé à une macro qui agit comme un lien, il me permet simplement d'appeler le fichier "fichier2.xls". Le problème c'est que je n'y arrive pas sans mettre le chemin complet C:\....., j'aimerai que la macro aille chercher le fichier "fichier2.xls" dans le même répertoire que le fichier "fichier1.xls". Merci d'avance.

 

[Ti]

Chemin = Thisworkbook.Path & "\Fichier2.xls"

 

[Munchkin]

Bonjour le forum et sepecialement bonjour Xavier

ChDir ThisWorkbook.Path

te permet de ce placer dans le dossier qui contient les deux fichier et là t'as qu'à mettre

Workbooks.Open FileName:="fichier.xls"

Voilà, bonne journée

The munchkin

 

[chris]

Bonjour
En fait tout dépend du chemin par défaut.
Si tu ouvres le fichier 1 par fichier ouvrir, ton chemin par défaut devient celui de ce fichier et il n'y a pas besoin de repréciser pour le fichier 2.
Si tu l'ouvres par l'explorateur Windows, ton chemin par défaut est celui défini dans les options Excel.
Si tu ouvres un fichier après l'ouverture de fichier 1 et avant le 2, le chemin est celui de ce fichier.

Chris

 

[chris]

RE
On s'est croisé : TI a la solution la plus simple !
Chris

 

[Xavier]

Je vous remercie tous, efficacité et rapidité semblent être certaines de vos valeurs, bonne continuation à tous et encore merci.

 

[Cyberegis]

Et si le fichier 2 que l'on souhaite ouvrir est dans un autre dossier que le fichier 1 qu'on a déjà ouvert, on fait comment?