Discussion :

[Emmanuel93]

Bonjour,

Quelqu'un sait-il comment récupérer le Handle de la dernière fenêtre non Excel ouverte lorsqu'on ne connait pas son nom?

Moins important : j'aurais besoin de connaitre l'état de cette fenêtre (à partir de son Handle) : savoir si elle est affichée ou rabaissée.

Cordialement,

[Phil Free]

Bonjour,

y a longtemps que je n'avait pas fait cela...

essai ceci :

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
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
#If VBA7 Then
    Declare PtrSafe Function GetForegroundWindow Lib "User32" () As Long
    Declare PtrSafe Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare PtrSafe Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
#Else
    Declare Function GetForegroundWindow Lib "User32" () As Long
    Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
#End If
 
Function GetForGroundWindowTitle() As String
    Dim fgwhwnd As Long
    Dim sTitle As String
    fgwhwnd = GetForegroundWindow
    'on détermine la longueur de la chaine du titre de fenêtre
    sTitle = Space$(GetWindowTextLength(fgwhwnd) + 1)
    'on récupère le titre de la fenêtre
    GetWindowText fgwhwnd, sTitle, Len(sTitle)
    'Supprime le dernier Chr$(0)
    sTitle = Left$(sTitle, Len(sTitle) - 1)
    GetForGroundWindowTitle = sTitle
End Function
 
Sub Tempo(ByVal TempPause As Single) 'utile uniquement pour la démo ci-dessous
    Dim start As Single
    start = Timer
    Do While Timer < start + TempPause
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
End Sub
Sub demo()
    Dim NomFenetreActive As String
    Tempo 3 'une petite tempo de 3" pour avoir le temps d'ouvrir une fenetre externe à excel
    NomFenetreActive = GetForGroundWindowTitle()
    MsgBox "Vous avez ouvert la fenêtre : " & NomFenetreActive
End Sub

Edit : ah oui pour la partie facultative de ta question je ne l'ai jamais fait et je me demande quel en est l’intérêt ?
D’ailleurs je me demande comment une fenêtre rabaissé pourrait en même temps avoir le focus car windows bascule automatiquement sur la fenêtre de derrière il me semble... enfin jusqu'à preuve du contraire.

A+