Chemin fichier

[Marc_du_78]

Bonjour à tous et à toutes,
J'ai ce code :

Sub InstructnGestVhs()
Dim appWord As Word.Application
Dim docWord As Word.Document
Set appWord = CreateObject
('Word.Application')
appWord.Visible = True
Set docWord = appWord.Documents. _
Open('D:\\Véhicules\\NoticeTechnique.doc', ReadOnly:=True)
End Sub

qui m'ouvre un fichier Word en lecture seule. Comment corriger le code (si c'est possible) au cas où le dossier qui contient ces 2 fichiers serait installé sur une partition différente et inconnue de 'D'
En vous remerciant sincèrement.

 

[XanorK]

ThisWorkbook.Path renvoit le chemin d'acces du fichier dans lequel tu bosse

LeNom = ThisWorkbook.Path & '\\NomDuFichier.doc'
Open (LeNom, ReadOnly:=True)

 

[Marc_du_78]

Bonsoir XanorK,
Je te remercie et te souhaite une agréable soirée.