Discussion :

[Chris50]

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

[Daniel.C]

Bonjour,

Enlève les deux dernières lignes.

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Chris50]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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