Envoyer des messages Whatsapp

Bonjour à tous,

Je sèche sur un code.... En effet j'aimerais arriver à envoyer des messages whatsapp sur base de mon fichier excel mais je n'y parviens pas. J'ai épluché de nombreux sites, anglophones pour la plupart mais aucun des codes trouvés ne m'envoie de message.

En colonne A j'ai le numéro de téléphone avec l'indicatif du pays (ou le contact, c'est plus facile numéro de téléphone mais si ça doit être le nom du contact je peux me débrouiller), en colonne B mon message (qui est le résultat de mes macros précédentes).

Pourriez vous m'aider à trouver le bon code?

Celui me semblait être très prometteur, mais après l'ouverture de whatsapp, ça tourne, et mon contact + message se retrouvent écrits dans mon code..... Il y a donc quelque chose qui coince.... mais quoi?

Sub Test()

Worksheets("Whatsapp").Activate

    Dim text As String
    Dim contact As String
    text = Range("B2").Value
    ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
    If MsgBox("Is WhatsApp Loaded?" & vbNewLine & vbNewLine & "Press No To Cancel", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp") = vbYes Then
        Fazer (100)
        startrow = 1
        startcol = 2

        Do Until Sheets("Whatsapp").Cells(startrow, 1) = ""
            contact = Cells(startrow, 1)
            text1 = Sheets("Whatsapp").Cells(startrow, startcol).Value
            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
        Loop
    Else
    End If
End Sub

Celle ci me semblait également bien construite mais sans plus de succès (elle utilise l'appli whatsapp et non whatsappweb). J'ai allongé les temps d'attente mais ça n'a pas conduit à un code fonctionnel (bien que je n'ai aucun message d'erreur, sur aucun des deux codes)

Sub wpp()

Dim contact As String
Dim Message As String
Dim retval

u = Application.WorksheetFunction.CountA(Sheets("Whatsapp").Range("A:A")) - 2

retval = Shell("C:\ProgramData\LorenceLefebvre\WhatsApp\WhatsApp.exe", vbNormalFocus)

Application.Wait (Now + TimeValue("00:00:20"))
For i = 0 To u

contact = Sheets("Whatsapp").Range("A2").Offset(i, 0).Value

Message = Sheets("Whatsapp").Range("B2").Offset(i, 0).Value

Application.Wait (Now + TimeValue("00:00:10"))

Call SendKeys(contact, True)

Application.Wait (Now + TimeValue("00:00:10"))

Call SendKeys("~", True)

Application.Wait (Now + TimeValue("00:00:10"))

Call SendKeys(Message, True)

Next i

End Sub

Des idées?

Pour ceux qui en auraient besoin, voici le bon code :

Sub envoi_message_WA()

    Dim text As String
    Dim contact As String
    text = Range("B2").Value2 'si vos lignes de texte se trouvent à partir de B2
    ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
    If MsgBox("Whatsapp est chargé?" & vbNewLine & vbNewLine & "Cliquez sur non pour annuler", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp") = vbYes Then
        Fazer (100)
        startrow = 2 
        startcol = 2
        Do Until Sheets("Whatsapp").Cells(startrow, 1) = ""
            contact = Cells(startrow, 1)
            text1 = Sheets("Whatsapp").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)
                    Loop
    Else
    End If
End Sub

Et c'est quoi Fazer () ?

Hello à tous

De même qu'est ce donc que Fazer ?

@+

Bonjour à tous

voici la fonction Fazer pour régler le temps d'attente en millisecondes

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