Excel VBA ouvrir, visualiser et fermer un document word

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:

---

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

---

Bonjour,

Enlève les deux dernières lignes.

Il suffit que tu mettes en ligne antépénultième :

Code:

---

MsgBox("Cliquer Ok pour fermer le document Word")

---

Si j'avais à le faire pour moi, je ferrais comme dis Daniel, en laissant le soin à l'utilisateur de fermer le document Word lui-même.

Enfin... non. Si j'avais à le faire pour moi, je mettrais un simple lien hypertexte attaché à une cellule, ce qui prendrait 10 s ét m'éviterait une macro.

Merci de vos propositions.
Finalement j'ai entre temps trouvé une solution, en ajoutant un Sleep 10000.
L'avantage est que le document Word reste ouvert tout le temps nécessaire à sa consultation et que lorsque l'utilisateur le ferme il revient sur le classeur Excel initial.
Le code est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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 Sleep 1000 'consultation du document Word. Reviens dans cette procédure à la fermeture (clic sur la croix) du document Set WordDoc = Nothing CreateObject("Word.Application").Quit Set appWD = Nothing

---