Microsoft 365 sms Factor adaptation API vers Excel office365

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une beau WE :)

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 ? :

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,
Aujourd'hui 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,
 

Pièces jointes

  • sms_test.xlsm
    22.7 KB · Affichages: 3
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Bonjour,

Exemple du code API en VBA :
VB:
Sub SEND()
            Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
            Dim Recipient As String
            Dim Message As String
            'Set vars where phone numbers and msg are set in your sheet'
            Recipient = Range("A5").Value
            Message = Range("B5").Value
            Url = "https://api.smsfactor.com/send?text=" + Message + "&to=" + Recipient
            objHTTP.Open "GET", Url, False
            objHTTP.setRequestHeader "Authorization", "Bearer YOUR_API_TOKEN" 'Your Token'
            objHTTP.setRequestHeader "Accept", "application/json"
            objHTTP.SEND ("")
        End Sub
lionel :)
 

Wayki

XLDnaute Impliqué
Salut,
Y a un soft génial que Microsoft a rendu gratuit qui permet de programmer ce genre de chose : Power Automate.
Si tu utilises Excel en ligne, alors tu peux passer sur la version Web.
Si tu utilises Excel sur bureau, il te faut la version desktop. C'est facile d'utilisation et très complet ;)
Essaye et si tu as des questions je tâcherai d'y répondre :)
A +
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée :)

Merci à Wayki pour m'avoir répondu.
Je viens de trouver la solution grâce à Excel pratique :
Sujet résolu,
lionel :)
 

Discussions similaires

M
Réponses
9
Affichages
449
Maikales
M