Afficher DOCUMENT WORD

[Rubis57]

Bonjour à tout le monde,

à partir d’un userform je peux ouvrir un document word. Jusqu’ici tout va bien.

Mais, j’aimerai que lorsque le document s’ouvre, qu’il s’affiche tout de suite à l’écran. Or, il faut que je clique d’abords sur l’icone dans la barre des tâches pour l’afficher.

Voici le code VBA qui set à ouvrir le document word à partir du userform.

Private Sub CommandButton9_Click()
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject(« Word.Application »)
With oWdApp
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(« P:\PILOTE COÛTS FIXES\CONTRAT DE TRAVAIL SALARIE.docx »)
'Afficher Word si nécessaire…
.Visible = True
End With
'Afficher le document à l’écran
oWdApp.Activate
WordDoc.Activate

End Sub

Auriez vous une petite idée pour cela ?

Merci d’avance.

Cdt Rubis

[Mimimathy]

Re,
En inversant le rendu visible de l’application (à tout hazard)

Private Sub CommandButton9_Click()
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire…
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open("P:\PILOTE COÛTS FIXES\CONTRAT DE TRAVAIL SALARIE.docx")
End With
'Afficher le document à l’écran
oWdApp.Activate
WordDoc.Activate

End Sub

[Rubis57]

Re,

tout fonctionne comme souhaité. MERCI à toi .

Cdt Rubis