VBA Excel - Ouverture / Affichage document Word

Bonjour,

J'ai une macro Excel qui me permets de tester si un fichier Word est ouvert ou non.

S'il est ouvert, je souhaite l'afficher à l'écran et s'il est fermé, je souhaite l'ouvrir.

Ma macro fonctionne relativement bien hormis si le fichier Word est réduit.

Comment est-ce que je fais pour l'afficher en premier plan qu'il soit réduit ou cacher derrière une autre fenêtre?

Voici mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If FichierEstOuvert(Dossierclient & "\" & DDE) Then Set objword = GetObject(, "Word.Application") objword.Visible = True Set LeDocWord = objword.Documents(Chemin) LeDocWord.Activate Else Set objword = CreateObject("Word.Application") objword.Visible = True Set LeDocWord = objword.Documents.Open(Chemin) End If

---

D'avance merci pour votre précieuse aide.

Michael.

Bonjour,
En utilisant par exemple cette ligne d'instruction ? objword.WindowState = wdWindowStateMaximize

[EDIT]
Si vous êtes en Late Binding, il y a lieu de remplacer la constante wdWindowStateMaximize par 1

Bonjour Philippe,

Cela fonctionne parfaitement et je vous en remercie.

J'ai également épuré le code afin d'éviter les répétitions.

Merci infiniment.

Excellente journée.

Michael.