Marc_du_78
XLDnaute Accro
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.
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.