PB excel 2000/2003

[giloud55]

Bonjour à ttes et tous,
voilà ma question :
j'ai 1 classeur excel 2000 (en c:\\fin\\bf.xls) dans lequel j'ai créé un menu avec des macros pour cacher les barres d'outils, ouvrir les différentes feuilles, imprimer etc ...). Je voudrais dans ce même menu lancer un autre classeur par macro se trouvant dans le même dossier windows (c:\\fin\\bf2.xls). La commande VBA 'Workbooks.Open Filename:=' m'ouvre bien ce classeur mais à condition que je lui indique exactement le chemin complet c'est à dire 'Workbooks.Open Filename:='c:\\fin\\bf2xls'. Seulement si je copie les 2 classeurs dans un autre dossier, la commande ne fonctionne plus bien sur. J'aimerais savoir s'il existe une commande VBA me permettant d'ouvrir obligatoirement ce deuxième classeur dans le 'dossier en cours' (le même que bf.xls) sans être obligé de lui indiquer le chemin quand je les copie dans des dossiers différents ?
Merci à ttes et tous pour votre aide.

 

[Jacques25]

Salut Giloud55,

Essai ça, moi ça m'a bien aidé :

Sub macro()
chemin = ActiveWorkbook.Path
Workbooks.Open Filename:= _
chemin & 'finbf2.xls'
End Sub

Si j'ai bien compris ta demande ça doit t'aider.

@ plus

Jacques

 

[Giloud55]

Bonjour Jacques25,
merci pour ta reponse rapide. J'ai juste du apporter une petite modif à ta solution et maintenant cela fonctionne parfaitement.

chemin = ActiveWorkbook.Path
Workbooks.Open Filename:=chemin & '\\finbf2.XLS'

( le ' \\ ' devant finbf2 )

Merci encore à toi.

 

[Jacques25]

Bonjour Jacques25,
merci pour ta reponse rapide. J'ai juste du apporter une petite modif à ta solution et maintenant cela fonctionne parfaitement.

chemin = ActiveWorkbook.Path
Workbooks.Open Filename:=chemin & '\\finbf2.XLS'

( le ' \\ ' devant finbf2 )

Merci encore à toi.