[XL-2003] Nom de la fenêtre active

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

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
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