ouvrir word depuis excel

[Marc_du_78]

Bonsoir à tous,
Jusqu'a ce matin, j'ouvrais word sans problème, puis là impossible. Pourtant rien n'a changé.
Code de michel XLD

Sub InstructnGestVhs() 'Affiche la notice technique
'Nécessite d'activer la référence Microsoft Word xx.x Object Library
'où xx est la version installée
Dim appWord As Wrd.Application
Dim docWord As Word.Document
Set appWrd = CreateObject('Word.Application')
appWrd.Visible = True
Set docWord = appWrd.Documents. _
Open('D:\\Véhicules\\NoticeTechniqueGesVhs.doc', ReadOnly:=True)
End Sub

Ca bloque à ce niveau :
Dim appWord As Wrd.Application

Je précise que les deux fichier sont dans le même répertoire sous D
En vous remerciant

 

[MichelXld]

bonjour Marc

tu peux tester cette adaptation

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éhiculesNoticeTechniqueGesVhs.doc', ReadOnly:=True)



bonne journée
MichelXld

 

[Marc_du_78]

Bonjour MichelXld,
Effectivement, je n'avais pas prêté attention. Mais d'où provient que ces 'o' ont disparus ?
En te souhaitant une bonne journée et mes sincères remerciements.