Chemin relatif

[Pias]

Bonjour le Forum

Le code ci-dessus fonctionne très bien, mais je souhaiterai appeler le fichier index .xls en chemin relatif, (..\..\index.xls ) au lieu de ( C:\travail\index.xls ), mais ça marche pas…

Si quelqu’un peut me dire pourquoi et me trouver une solution ça serait très sympa !
Merci d’avance
Pias
-------------------------------------------------

Sub Macroname(Dummy As String)
UserForm1.lblStyle 0
Select Case Dummy

Case 301

UserForm1.CommandButton1_Click
Workbooks.Open Filename:= _
"C:\travail\index.xls"

Case 302
UserForm1.CommandButton1_Click
Sheets("feuil3").Activate
Case Else
UserForm1.Hide
MsgBox "Menu " & Dummy & ": Option non disponible !", 64, ThisWorkbook.Name
UserForm1.Show

End Select
End Sub

 

[Michel_M]

Bonjour Pias

Si ton fichier index est dans le m^me dossier que le classeur de cette macro, tu peux écrire

chemin=activeworkbook.path

Workbooks.Open Filename:= chemin & "\index.xls

chemin est déclaré en type string


En général, il vaut mieux ranger tous les fichiers de la même appli dans le même dossier, ce qui permet une meilleure portabilité de celle-ci

Bonne soirée

Michel

 

[Pias]

Salut, Michel

Quoi dire de plus ?
Ta réponse est parfaite, c’est exactement ce que je voulais.
Un grand merci pour ta serviabilité .
Bonne soirée

Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[Yeahou]

Bonjour Pias, Michel_M, le forum

chemin=ThisWorkbook.Path
serait plus adapté car se référant au classeur contenant la macro et non au classeur actif qui n'est pas forcément celui de la macro exécutée.

Cordialement, A+

 

[Michel_M]

Salut Yeahou,

Bravo

Michel

 

[Yeahou]

Bonjour Michel

De rien, je suis entièrement d'accord avec toi pour
"En général, il vaut mieux ranger tous les fichiers de la même appli dans le même dossier, ce qui permet une meilleure portabilité de celle-ci"
et j'utilise Thisworkbook.path qui me permet de ne jamais avoir à m'occuper des chemins d'accés des fichiers annexes de mes programmes puisqu'ils sont toujours dans le même dossier ( ou dans un sous dossier ) que le fichier macro.

Bonne soirée, A+

 

[Pias]

Bonsoir, Yeahou, Michel et le forum
Merci beaucoup Yeahou, pour tes conseils, ils sont très intéressants.
Pour moi en tout cas !...

Amicalement

...On se lasse de tout sauf d’apprendre !..