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