Discussion :

[baptlauras]

Bonjour,

J'aimerai ramener la fenetre Excel qui contient la macro que j'éxécute au premier plan après avoir ouvert un document word depuis Excel. J'ai essayé les solutions trouvées sur le forum mais rien ne fonctionne. Pourtant ici c'était le meme problème et la solution a fonctionnée pour lui je ne comprends vraiment pas pourquoi cela ne fonctionne pas.

J'ai aussi essayé celui-ci mais rien n'y fait...

Pouvez-vous m'aider svp?

[laurent_ott]

Il faut essayer ceci dans un module EXCEL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
 
Sub PremierPlan()
MoveWindow Application.hwnd, 0, 0, GetSystemMetrics(0), GetSystemMetrics(1), 1
End Sub

[Menhir]

Quand tu parles de "fenêtre Excel", est-ce une feuille de calcul ou un UserForm ?

[patricktoulon]

re

sujet plusieurs fois dans le forum
soit la macro dans le word
soir une mcro différée(application.ontime)ou pire un timer

toutes les autres solutions a ma connaissance ne sont pas fiables
si tu ouvre ton word a partir d'excel cela devrait etre facile a mettre en place

[baptlauras]

Bonjour à vous 3,


Menhir, j'ouvre un document Word depuis Excel, celui s'affiche par dessus, je voudrais remettre la fenêtre Excel (où se trouve la feuille de calcul pas un UserForm) au premier plan quand l'ouverture est terminée.

Laurent j'ai essayé ta solution, au début ça ne reconnaissait pas car getSystemMetrics n'était pas reconnu, je les ai donc changé pour des valeurs en dure pour tester (500x500), ça redimensionne la fenêtre mais elle ne passe pas par dessus la fenêtre Word.

J'ai donc fait la macro différée comme le conseil Patrick mais ca ne fonctionne pas. Je ne peux pas mettre la macro pour ramener devant dans le word car la macro que je fait sur excel est destinée à plusieurs utilisateurs et peut utiliser plusieurs documents word différents.

Actuellement le code de cette partie ressemble à ça :
Ouverture Word + fonction ontime pour appeler la macro premier plan :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set DocWD = AppWD.Documents.Open(path) 
    AppWD.Visible = True
    DocWD.Activate
 
    Application.OnTime Now + TimeValue("00:00:10"), "PremierPlan"

Et dans premier plan j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub PremierPlan()
 
AppActivate "Microsoft Excel"
End Sub

Cela correspond bien à ce que tu me disais Patrick?

Merci à vous 3 pour les réponses

[pijaku]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub testword()
Dim Wapp As Word.Application, Wdoc As Object
   Set Wapp = New Word.Application
   Set Wdoc = AppWD.Documents.Open(Path)
    Wapp.Visible = True
    Wdoc.Activate
    Wapp.ActiveWindow.WindowState = wdWindowStateMinimize
End Sub

[pijaku]

Ou encore, pour laisser le temps de réaliser une/des actions :

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
18
Option Explicit
 
Dim Wapp As Word.Application
 
Sub testword()
Dim Wdoc As Word.Document
   Set Wapp = New Word.Application
   Set Wdoc = Wapp.Documents.Add
   Wapp.Visible = True
   Wapp.Application.Activate
   Wdoc.Activate
   Wapp.ActiveWindow.WindowState = wdWindowStateMaximize
   Application.OnTime Now + TimeValue("00:00:10"), "PremierPlan"
End Sub
 
Private Sub PremierPlan()
    Wapp.ActiveWindow.WindowState = wdWindowStateMinimize
End Sub

[patricktoulon]

re
on dit que la curiosité est un defaut perso je suis pas d'accords
si tu avais fait une recherche google ou meme sur ce forum tu aurais trouver ton bonheur tout du moins une base ICI
PArti de la une adaptation a ton besoins en 2 secondes et qui fonctionne meme si l'instance de word n'a pas éte ouverte par excel
j'ai simplement repris le code en bloquant les ligne dont tu n'a pas besoins et ajouté me minimisé de word point barre
voila apres ton ouverture ou au moment que tu veux tu lance ca

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
Sub minimizeword()
Dim objWord As Object
Dim c As Object
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Not objWord Is Nothing Then
  objWord.WindowState = 2
   ' Set c = objWord.ActiveDocument
    'If Not c Is Nothing Then
         'MsgBox c.Name
         'Set c = Nothing
    'End If
End If
Set objWord = Nothing '-- détruire l'objet Word
End Sub

voila tu a le lien et l'adaptation