Activer une fenêtre Windows via VBA

Bonjour,

Au fil de mes recherches, voilà ce que j'arrive à obtenir à l'heure actuel :

Code:

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
28
29
30
31
32
33
34
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
' ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10
'-----------------------------------
 
Sub Activer_Voir_Fenêtre()
Dim hwnd As Long, Voir_Fenêtre As String
 
Voir_Fenêtre = "Sans titre - Bloc-notes"
hwnd = FindWindow(vbNullString, Voir_Fenêtre)
 
If hwnd = 0 Then Exit Sub
SetForegroundWindow hwnd
ShowWindow hwnd, SW_SHOWDEFAULT
End Sub

Pour l'instant j'essaye de faire fonctionner ce code avec une simple fenêtre du bloc notes. Cependant ma variable hwnd prend la valeur 0 alors que ma fenêtre bloc notes est ouverte.