XL 2013 chemin d'accès en VBA

[flag06]

Bonjour,
comment ouvrir à partir d'une macro excel un autre fichiers excel qui est dans le même dossier que le fichier
sans avoir à changer l'adresse dans la macro à chaque changement d'ordinateur ?
les fichiers et le dossier "parents" son sur ma clé USB et donc je suis obligé de changé
la 2ème ligne du texte ci-dessous à chaque fois que je change d'ordinateur


Workbooks.Open Filename:= _
"C:\Users\moi\Desktop\TEST_EXCEL\Planning_VL3.xlsm", UpdateLinks:=0

si quelq'un a la solution je le remercie d'avance

 

[Hasco]

Bonjour,

Si 'dans le même dossier que le fichier' veut dire 'dans le même dossier que le fichier qui contient la macro' alors:

Filename:= ThisWorkbook.Path & Application.PathSeparator & "Planning_VL3.xlsm"

Bon après-midi

 

[flag06]

Merci beaucoup Roblochon !..
ça marche c'est nickel
cordialement
encore merci
Lucien

 

[Staple1600]

Bonsoir le fil,

Pour le fun, une autre syntaxe possible

Sub test()
fichier = ThisWorkbook.Path & Application.PathSeparator & "Planning_VL3.xlsm"
MsgBox fichier
With ThisWorkbook
fichier = Replace(.FullName, .Name, "Planning_VL3.xlsm")
End With
MsgBox fichier
End Sub