Discussion :

[Theboobasparks]

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.

[Theboobasparks]

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

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
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.

[umfred]

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)