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

[badraaliou4]

Bonjour à tous et toutes
Je souhaite réduire la fenêtre active avec VBA j'ai utilisé code mais ça ne marche pas.

sub reduire_fenetre_active()
    sendkeys "{HOME}{DOWN}"
end sub

Merci de votre aide

 

[Dudu2]

Bonjour,

Sub RéduireFenêtre()
    ActiveWindow.WindowState = xlMinimized
End Sub

 

[badraaliou4]

REPONSE

Mon code me permet d'envoyer le message par whatsapp.
Je cherche un code qui réduit whatsapp après l'envoie de message

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]

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

Dim Name As String 
'Excel Windows name
Name = ActiveWindow.Caption
'.../...
AppActivate Name

 

[badraaliou4]

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

Dim Name As String
'Excel Windows name
Name = ActiveWindow.Caption
'.../...
AppActivate Name

Merci beaucoup ça marche bien