VBA Excel - Problème affichage document Word

Bonjour,

J'ai une macro qui me permet de tester si un fichier Word est ouvert.

Je souhaite que si le document est ouvert, que ce dernier soit afficher à l'écran, qu'il soit minimisé ou caché derrière une fenêtre.

Mon code fonctionne si la fenêtre est réduite mais pas si elle est cachée derrière une autre fenêtre et je ne comprends pas pourquoi.

Voici mon code :

Code:

---

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

If FichierEstOuvert(Dossierclient & "\" & R1) Then   Set objword = GetObject(, "Word.Application") Set LeDocWord = GetObject(chemin) LeDocWord.Activate Set doc = objword.ActiveDocument objword.Windows(doc.Name).WindowState = 1   Else   Set objword = CreateObject("Word.Application") Set LeDocWord = objword.Documents.Open(chemin) LeDocWord.Application.Visible = False   End If

---

Quelqu'un aurait une idée sur le problème?

D'avance merci.

Michael.

Et bien ça à l'air de fonctionner de cette manière :

Code:

---

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

If FichierEstOuvert(Dossierclient & "\" & R1) Then   Set objword = GetObject(, "Word.Application") Set LeDocWord = GetObject(chemin)   LeDocWord.Application.Activate LeDocWord.Application.Visible = False LeDocWord.Application.WindowState = 1   Else   Set objword = CreateObject("Word.Application") Set LeDocWord = objword.Documents.Open(chemin) LeDocWord.Application.Visible = False   End If

---

Merci quand même !

Michael.

ce qui me semble étrange c'est que LeDocWord.Application.Visible = False est censé masquer Word (Word reste en tâche de fond, sans apparaitre dans la barre des tâches)