Depuis un classeur Excel je souhaite ouvrir et visualiser un document Word.
Lorsque j'ai fini de le consulter, fermer ce document Word, fermer l'application Word et retourner sur le classeur Excel initial.
Le code VBA suivant effectue cette operation, mais il ne laisse pas assez de temps pour consulter le document Word qui se referme aussitôt qu'il s'ouvre. Comment interrompre la procédure pour laisser le temps de consulter le document. Merci d'avance pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
NomDoss = "Documentation"
Répertoire0 = ThisWorkbook.Path
On Error Resume Next
Répertoire1 = Répertoire0 & "\" & NomDoss
On Error GoTo 0
 
Set appWD = CreateObject("Word.Application")
Set WordDoc = appWD.Documents.Open(Répertoire1 & "\ATS_Conception_générale.docx", ReadOnly:=True)
appWD.Visible = True
appWD.Activate
 
'consultation du document Word
 
WordDoc.Close
appWD.Quit