Bonjour,

Via une macro, je veux vérifier via une macro qu'une application ("Axel" dans mon cas) est active, et si oui la mettre au premier plan et si non afficher un msgbox "Aucune fenêtre trouvée !". Voici le code que j'ai trouvé quelque part et que j'essaie à adapter:
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
Sub AxelActivate()
 
Dim hwnd&, Style&, Title$, i&
hwnd = GetWindow(GetDesktopWindow(), 5)
 
 
Do While hwnd
Title = GetCaption(hwnd)
If Len(Title) Then
' Enum visible windows only
    If GetWindowLong(hwnd, -16) And &H10000000 Then
        If InStr(1, Title, "Axel", 1) Then
        AppActivate Title
        'MsgBox "yes !"
        Exit Sub
        End If
    End If
End If
 
hwnd = GetWindow(hwnd, 2)
Loop
 
MsgBox "Aucune fenêtre trouvée !", 64
 
End Sub
Malheureusement ce bout de code ne marche pas et il ne met pas l'application au premier plan. Pourriez-vous m'aider svp ?

Bien cordialement;