Traduire un code VBA d'envoi de message whatsapp pour Google Sheet

Bonjour à tous,

J'ai commencé à apprendre le VBA il y a quelques mois.

Je souhaiterais automatiser une action (l'envoi de messages whatsapp) sur un google sheet mais je ne connais absolument pas ce langage.

Une âme charitable pourrait elle m'aider à traduire ce code ?

Excellente journée à tous

Sub envoi_message_WA()

    Sheets("Whatsapp2").Activate

    Dim text As String
    Dim contact As String
    text = Range("B2").Value2
    ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
    If MsgBox("Whatsapp est prêt?" & vbNewLine & vbNewLine & "Cliquez sur non pour annuler", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp") = vbYes Then
        Fazer (100)
        startrow = 2
        startcol = 2
        Do Until Sheets("Whatsapp2").Cells(startrow, 1) = 0
            contact = Cells(startrow, 1)
            text1 = Sheets("Whatsapp2").Cells(startrow, startcol).Value2
            Fazer (3000)
                Call SendKeys("{TAB}", True)
            Fazer (1000)
                Call SendKeys(contact, True)
            Fazer (1000)
                Call SendKeys("~", True)
            Fazer (1000)
                Call SendKeys(text1, True)
            Fazer (1000)
                Call SendKeys("~", True)
            Fazer (1000)

            startrow = startrow + 1

            Fazer (1000)
       Call SendKeys("{TAB}", True) 'Simulate the 2nd keystroke
                    Loop
    Else
    End If
End Sub

Function Fazer(ByVal Acao As Double)
    Application.Wait (Now() + Acao / 24 / 60 / 60 / 1000)
End Function

Bonjour,

Tu utilises l'interface https://web.whatsapp.com/ en envoyant des séries de caractères avec VBA.

Pour google sheets, ce sera très différent, tout simplement parce que le script est exécuté sur les serveurs de google et non sur ton PC comme VBA. Donc aucun chance d'utiliser sendkeys car Google ne pourra pas envoyer les "touches frappées virtuelles" vers ton propre navigateur.

En revanche, tu peux :

• soit faire un line hypertext vers l'api de whatsapp ...

=hyperlink("https://api.whatsapp.com/send?phone="&ici_le_numero&"&text="&ici_ton_texte;"envoyer")

• soit faire un script ...
  • voir ici https://www.twilio.com/blog/send-whatsapp-messages-from-google-sheets-javascript-node-js
  • ou https://automatescript.com/send-whatsapp-messages-from-google-sheets-using-google-apps-script/
    • (à vrai dire je n'ai jamais fait !)