Sms Factor adaptation API vers Excel office365

Bonjour à toutes et à tous,
Je vous souhaite une beau dimanche :)

Je me tourne à nouveau vers nos ténors pour une adaptation que je suis bien incapable de réaliser.
J'ai appelé mon fournisseur d'envoi de sms qui met à disposition des APIs à adapter qui m'a précisé qu'il ne fait ne pas les adaptations.

J'ai tenté depuis plusieurs jours (consultations multiples internet, forums ...), tentatives d'adaptation sans succès.
Déjà pas "fortiche" en VBA ... alors en API c'est la brasse coulée.

Voici l'exposé de mon besoin qui est également dans le classeur joint
Nouveau Client de https://www.smsfactor.com/ , un n° de tel virtuel m'a été attribué pour mes envois de sms
Voici ce que je dois faire pour chaque sms à envoyer :
(mes sms sont tous différents et je les envoie 1 par un)

Je travaille avec office365 Excel , à chaque besoin d'envoi de sms, je dois :
- me connecter sur mon compte smsFactor,
- cliquer sur sms rapide,
- revenir dans à mon classeur Excel pour actionner le "copier" des informations (texte sms et n° tel destinataire),
- revenir sur smsFactor pour "coller" les informations (texte sms et n° tel destinataire),
- envoyer,
- fermer la fenêtre après envoi,

- revenir dans à mon classeur Excel pour générer mon nouveau sms avec le n° téléphone du destinataire,
et recommencer pour chaque sms,

Evidemment, c'est répétitif, long et fastidieux ....
Dans mon travail, je dois être rapide et automatisé au maximum.
J'ai tenté de faire fonctionner l'API VBA sans succès.

Ma question :
Est-il possible d'automatiser avec l'API du site en l'adaptant ? : https://dev.smsfactor.com/fr/api/sms/envoi/message-unitaire

1 - Dans mon classeur Excel, je créé le texte du sms avec l'affectation du n° de téléphone du destinataire,
2 - je suis automatiquement dirigé sur la fenêtre "sms Rapide",
3 - le texte du sms est copié automatiquement dans le cadre "Message,
4 - le n° de téléphone du destinataire est copié automatiquement dans le cadre "Numéro du destinataire,
5 - Je n'ai qu'à cliquer sur "Envoi Immédiat",
6 - la petite fenêtre "sms envoyé" se ferme automatiquement,
Hier samedi 28/08 j'ai envoyé environ 50 sms = environ 9 actions par sms soit au total plus de 450 actions manuelles.

Pourriez-vous m'aider ?
Je vous remercie pour votre aide précieuse,
Cordialement,
lionel,

bonjour,

tu as un code pour l'envoi de sms via sms factor. Pourquoi veux-tu passer par toutes ces étapes 2 à 6, alors que le code que tu as mis se charge de tout cela de manière transparente pour toi.

La seule chose dont tu as besoin, c'est un Token (à demander suivant la procédure indiquée sur le site SMS factor) et mettre ce token dans le code.

Sub SEND()
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    Dim Recipient As String
    Dim Message As String
    Dim Token As String
    'Set vars where phone numbers and msg are set in your sheet'
    Recipient = Range("c4").Value
    Message = Range("d4").Value

    Token = "remplacer ceci par ton token" ' <- mettre ton token ici

    Url = "https://api.smsfactor.com/send?text=" + Message + "&to=" + Recipient
    objHTTP.Open "GET", Url, False
    objHTTP.setRequestHeader "Authorization", "Bearer " & Token
    objHTTP.setRequestHeader "Accept", "application/json"
    objHTTP.SEND ("")
End Sub

Bonjour Fanatique d'Excel (lol) h2so4,

Je te remercie pour ta réponse.

Evidemment, je n'y connais rien en API.

Je prends ton code et je vois avec smsFactor comment faire pour le ToKen.
Je te tiendrai informé de la suite.

Un grand merci,

Amicalement,

lionel,

Sub SEND()
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    Dim Recipient As String
    Dim Message As String
    Dim Token As String
    'Set vars where phone numbers and msg are set in your sheet'
    Recipient = Range("c4").Value
    Message = Range("d4").Value

    Token = "eyJ0eXAiOiJKV...etc..." ' <- mettre ton token ici

    Url = "https://api.smsfactor.com/send?text=" + Message + "&to=" + Recipient
    objHTTP.Open "GET", Url, False
    objHTTP.setRequestHeader "Authorization", "Bearer " & Token
    objHTTP.setRequestHeader "Accept", "application/json"
    objHTTP.SEND ("")
End Sub
C'est nickel et instantané.
Vraiment merci,
Amicalement,
lionel,