XL 2013 chemin d'accès en VBA

flag06 · 19 Juin 2019

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 · 19 Juin 2019

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 · 19 Juin 2019

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

Staple1600 · 19 Juin 2019

Bonsoir le fil,

Pour le fun, une autre syntaxe possible

VB:

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

XL 2013 chemin d'accès en VBA

flag06

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

flag06

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires