Macro Ouvrir Word à partir d'Excel

Remplace
wrdDoc.Visible = True
par
wrdApp.visible=true

Slts
Manu

Bonjour à toute la communautée.
J'ai repris cette macro afin de pouvoir ouvrir un document word à partir
d'un bouton de commande dans une feuille de calculs :

Private Sub OpenWord()
Dim wrdApp
Dim wrdDoc
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:aaaaaa.doc")
wrdDoc.Visible = True
End Sub

Dans le document word, j'ai à nouveau inséré un bouton de commande
permettant de refermer le document Word ouvert par la macro sous Excel :

Private Sub ClickClose()
Application.Quit
End Sub

J'ai un soucis, car une fois le document fermé, le débogeur sous Excel
s'enclenche et me met en surbrillance la ligne :

wrdDoc.Visible = True

Que mettre pour éviter que le débogeur s'enclenche?

Merci d'avance, Cordialement.

Bonjour ThunderBirds,

Il serait préférable que tu déclare ta variable WrdApp au niveau du module
Dim WrdApp As Object

Si le code concernant l'objet se retrouve dans plus d'un module, utilise une
variable Public déclarée dans le haut d'un module Standard

Public WrdApp As Object

Si tu veux fermer cette instance de Word sans aucune difficulté, tu dois
d'abord fermer tous les documents Word ouvert avec cette instance et
ensuite ferme l'application en utilisant ceci...

WrdApp.Quit

La propriété visible s'adresse à WrdApp et non au Document Word "wrdDoc"


Salutations!


"ThunderBirds" <nospamcaracal974@hotmail.com> a écrit dans le message de news: CEB39D11-2B3E-49BF-ADBF-DFF942FB4FF8@microsoft.com...
Bonjour à toute la communautée.
J'ai repris cette macro afin de pouvoir ouvrir un document word à partir
d'un bouton de commande dans une feuille de calculs :

Private Sub OpenWord()
Dim wrdApp
Dim wrdDoc
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:aaaaaa.doc")
wrdDoc.Visible = True
End Sub

Dans le document word, j'ai à nouveau inséré un bouton de commande
permettant de refermer le document Word ouvert par la macro sous Excel :

Private Sub ClickClose()
Application.Quit
End Sub

J'ai un soucis, car une fois le document fermé, le débogeur sous Excel
s'enclenche et me met en surbrillance la ligne :

wrdDoc.Visible = True

Que mettre pour éviter que le débogeur s'enclenche?

Merci d'avance, Cordialement.