Discussion :

[Korleone]

Bonjour,

Je souhaiterais connaitre le Nom de la fenêtre active (hors Excel), afin de m'assurer que je suis sur la bonne page avant d'effectuer mon action avec un SendKeys (a défaut de mieux...).

Merci pour vos réponses !

[aalex_38]

Il y a sans doute mieux, en tout cas un exemple en maximisant la fenêtre pour faire le send :

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
Sub quicktest()
Dim AppTitle As String, tmr As Long
 
AppTitle = "Sans titre - Bloc-Notes" 'ici le titre de la fenetre a maximiser
AppActivate AppTitle
tmr = Timer
While ((Timer - tmr) < 2)
Wend
' AppMinimize AppTitle
AppMaximize AppTitle
 
SendKeys ("{F1}")
End Sub
'essai perso
Function AppMaximize(AppTitle As String) As Boolean
Dim hwnd As Long
hwnd = FindWindow1(0, AppTitle & vbNullChar)
If hwnd <> 0 Then
PostMessage hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0
AppMaximize = True
Else
AppMaximize = False ' Fenêtre pas trouvée
End If
End Function