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

badraaliou4 · 6 Avril 2022

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

Dudu2 · 6 Avril 2022

Bonjour,

VB:

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

badraaliou4 · 6 Avril 2022

Dudu2 à dit:
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

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 · 6 Avril 2022

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

badraaliou4 · 6 Avril 2022

Dudu2 à dit:
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

Merci beaucoup ça marche bien

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

badraaliou4

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

Discussions similaires