Appel http dans VBA

bonjour je souhaite faire appel au lien suivant pour un envoie de sms .

mais je n'arrive pas a le faire fonctionner su mon fichier excel .

L'envoi du SMS se fait en appelant le lien suivant :

avec les paramètres suivants :

user : votre login

pass : votre clé d'identification générée automatiquement par notre service

msg : le contenu du SMS encodé sous forme d'url (Percent-encoding)

Exemple : Envoyer le message "Hello World !" sur votre mobile :

Vous pouvez également, si vous le préférez, envoyer les paramètres en POST. Dans ce cas, le contenu du message n'a pas besoin d'être encodé.

Le code de retour HTTP indique le succès ou non de l'opération :

200 : Le SMS a été envoyé sur votre mobile.

400 : Un des paramètres obligatoires est manquant.

402 : Trop de SMS ont été envoyés en trop peu de temps.

403 : Le service n'est pas activé sur l'espace abonné, ou login / clé incorrect.

500 : Erreur côté serveur. Veuillez réessayez ultérieurement.

merci d'avance de votre aide

bonjour,

à tester

Sub aargh()
    Set ie = CreateObject("InternetExplorer.application")
    qurl = "https://smsapi.free-mobile.fr/sendmsg?user=login&pass=password&msg=Hello%20World%20"   
    ie.navigate qurl
    Do
        DoEvents
    Loop Until ie.readyState = 4
    r =  ie.document.body.innerHTML
    MsgBox "voici la réponse " & vbCrLf & r
    ie.Quit
    Set ie = Nothing
End Sub

h2so4 a écrit :

bonjour,

à tester

Sub aargh()
    Set ie = CreateObject("InternetExplorer.application")
    qurl = "https://smsapi.free-mobile.fr/sendmsg?user=login&pass=password&msg=Hello%20World%20"    ' on traite d'abord les actions
    ie.navigate qurl
    Do
        DoEvents
    Loop Until ie.readyState = 4
    r =  ie.document.body.innerHTML
    MsgBox "voici la réponse " & vbCrLf & r
    ie.Quit
    Set ie = Nothing
End Sub

Encore une fois vous êtes mon sauveur , un énorme merci beaucoup .

cordialement roms