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 !
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 !
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager