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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.