Discussion :

[XceSs]

Bonjour, j'utilise plusieurs logiciel pour le travail et je voulais savoir comment je pourrais faire revenir excel au premier plan.

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
19
20
21
22
23
24
25
26
27
Option Explicit
 
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
 
Sub applicationpremierplan()
  Dim hwnd As Long
Dim Logiciel As String
 Logiciel = "Microsoft Excel - " & ThisWorkbook.Name
 hwnd = FindWindow(vbNullString, Logiciel)
 If hwnd = 0 Then
  Logiciel = ThisWorkbook.Name
  hwnd = FindWindow(vbNullString, Logiciel)
 End If
 If hwnd = 0 Then
 Logiciel = "Microsoft Excel - " & ThisWorkbook.Name & " [Lecture seule]"
  hwnd = FindWindow(vbNullString, Logiciel)
 End If
 If hwnd = 0 Then
 Logiciel = ThisWorkbook.Name & " [Lecture seule]"
  hwnd = FindWindow(vbNullString, Logiciel)
 End If
 BringWindowToTop hwnd
 ShowWindow hwnd, 1
 Message.Show 0
End Sub

j'ai déjà essayé ceci mais cela ne fonctionne pas

Merci de votre aide

[fring]

Bonjour,

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
 
Sub test()
Dim lhWnd As Long
lhWnd = FindWindow(vbNullString, Application.Caption)
Call SetForegroundWindow(lhWnd)
End Sub

[XceSs]

Que ça soit ta macro ou ma macro, soit l'application revient au premier plan soit l'onglet windows clignote

une raison que ça clignote plutôt que de revenir au premier plan ? Je suis au travail et les ordinateurs sont en réseau

Merci

[fring]

Je n'arrive pas à reproduire ce phénomène

Essaie avec l'Api ShowWindow

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
19
20
21
22
23
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal lCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Sub AfficherFenetre()
Dim lHwnd As Long
 
lHwnd = FindWindow(vbNullString, Application.Caption)
 
'Les paramètres pour ShowWindow sont :
'0 = cache la fenêtre et en active une autre
'2 = active et réduit la fenêtre
'3 = active et agrandit la fenêtre
'5 = active et affiche la fenêtre
'6 = réduit la fenêtre et active la suivante dans l'ordre des tâches Windows
'9 = active et affiche la fenêtre à sa taille et position initiales
'8 = affiche la fenêtre sans l'activer
 
ShowWindow lHwnd, 3
 
'si plusieurs classeurs ouverts dans cette instance
ThisWorkbook.Activate
 
End Sub