Discussion :

[Theboobasparks]

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.

[Philippe Tulliez]

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

[Theboobasparks]

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.