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