XL 2016 VBA Excel: Raccourci du clavier similaire à HOME + flèche bas

badraaliou4

XLDnaute Occasionnel
Bonjour à tous et toutes
Je souhaite réduire la fenêtre active avec VBA j'ai utilisé code mais ça ne marche pas.
VB:
sub reduire_fenetre_active()
    sendkeys "{HOME}{DOWN}"
end sub

Merci de votre aide
 

badraaliou4

XLDnaute Occasionnel
Mon code me permet d'envoyer le message par whatsapp.
Je cherche un code qui réduit whatsapp après l'envoie de message
VB:
Sub cmdSend()
Dim IE As Object
Dim strPhoneNumber As String ' caisse
Dim strMessage As String
strPhoneNumber = Sheets("whatsapp").Range("B2").Value
strMessage = Sheets("whatsapp").Range("A2").Value '
        Set IE = CreateObject("InternetExplorer.Application")
            IE.navigate "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strMessage
            Application.Wait Now() + TimeSerial(0, 0, 3)
            Call SendKeys("{ENTER}", True)
        Set IE = Nothing
       
        'Je cherche un code qui reduit whatsapp le code ci-dessous ne marche pas
    On Error Resume Next
    Application.Wait Now() + TimeSerial(0, 0, 1)
    AppActivate "Excel"
    On Error GoTo 0
End Sub
 

Dudu2

XLDnaute Barbatruc
Je ne peux pas tester ce code n'ayant pas Internet Explorer.
Je dirais:
- Envoyer un SendKeys ""%{F4}" à IE pour le tuer
- ou quelque chose du genre
VB:
Dim Name As String 
'Excel Windows name
Name = ActiveWindow.Caption
'.../...
AppActivate Name
 

Discussions similaires

Réponses
1
Affichages
147

Statistiques des forums

Discussions
312 922
Messages
2 093 658
Membres
105 777
dernier inscrit
Lili1411