XL 2013 Clé API ?

[jpmetge]

Bonjour à tous,
J'ai trouvé un code VBA fort intéressant (Merci à l'auteur,voir PJ) permettant d'envoyer des SMS depuis un PC.
Or lorsque je l'exécute, j'obtiens l'erreur suivante :

en mode débogage celà donne :

Je pense que le problème vient de ma variable
Apikey = "VotreApiKey" qui n'est pas renseignée.
Où puis-je trouver la valeur à renseigner?
Merci pour votre aide.

 

[Dranreb]

Bonjour
À tout hasard prenez ce code dans un module standard :

Option Explicit
Function UHexaTexte(ByVal Texte As String) As String
Rem. —— Renvoie un texte dont chaque caractères de code ASCII > 127 est remplacé
'     par "\u" suivi de ce code en hexadécimal de 4 de long.
   Dim TJn() As String, P As Long, C As String * 1, A As Integer, J As Long
   ReDim TJn(0 To 0)
   For P = 1 To Len(Texte)
      C = Mid$(Texte, P, 1): A = AscW(C)
      If A > 127 Then
         J = J + 1: ReDim Preserve TJn(0 To J)
         TJn(J) = Right$("000" & Hex$(A), 4)
      Else
         TJn(J) = TJn(J) & C
         End If: Next P
   UHexaTexte = Join$(TJn, "\u")
   End Function
Function TexteUHexa(ByVal UHexa As String) As String
Rem. —— Renvoie un texte dont chaque groupe "\u" suivi d'un code hexadécimal de 4 de long
'     est remplacé par le caractère ayant cette valeur pour code ASCII.
   Dim TJn() As String, J As Long
   TJn = Split(UHexa, "\u")
   For J = 1 To UBound(TJn): TJn(J) = ChrW$(Val("&H" & Left$(TJn(J), 4))) & Mid$(TJn(J), 5): Next J
   TexteUHexa = Join$(TJn, "")
   End Function

Et utilisez UHexaTexte à la place de URLEncode

 

[Staple1600]

Bonjour le fil

=>jpmetge
Sans clé API, ça ne peut pas fonctionner

Service et API d'envoi de SMS par internet - Envoyer des SMS depuis le web

API d'envoi de SMS, Envoyer SMS depuis notre service d'envoi distant. API SMS pour France, Belgique Suisse. Requete HTTP (GET et POST) pour envoyer des SMS

www.envoyersms.org

Integrer facilement un systeme d'envoi de SMS sur votre site Internet.
N'oubliez pas de recharger votre compte pour que l'API puisse fonctionner correctement.

 

[patricktoulon]

bonjour
a tu ta propre keyapi? si tu n'en a pas ça risque pas de fonctionner
et ça m'étonnerait que cela soit gratuit
d'autant plus que ça ne m’étonnerait pas non plus que l'on doit paramétrer le header de la requête vu l'objectif un minimum de sécurité quand même

 

[Staple1600]

Bonjour patricktoulon

patricktoulon
C'est ce que je viens d'écrire dans le message#3...
Mais on n'est pas trop de deux pour rappeler l'évidence

Et pour avoir une clé, il faut ouvrir le porte-monnaie
(comme c'était déjà évoqué ici à l'époque)

Envoyer SMS par feuille excel via Macro - CODE EXISTANT à modifier

Bonjour à tous ! Je désire envoyer des SMS par l'intermédiaire d'une macro inclue dans une feuille Excel.:) J'ai 2 codes : un qui fonctionne, et l'autre pas. Celui qui fonctionne à une coût/SMS plus important que celui qui ne fonctionne pas :( Je voudrais bien sur utiliser celui qui ne...

www.excel-downloads.com

 

[Dranreb]

Ça promet, tout ces problèmes qui surviendront encore une fois qu'il pourra essayer d'aller plus loin avec des textes acceptés !

 

[patricktoulon]

Bonjour Staple160
oui j'ai vu on c'est croisé ta répondu pendant que je tapais
effectivement avec tout les problèmes qui vont suivre notre ami n'est pas au bout de ces peines

 

[Staple1600]

Re

=>patricktoulon
Tes lunettes du dimanche sont défectueuses?
(voir message#3 et #5)

 

[patricktoulon]

je sais pas ce que ca vaut mais quand tu tape sms gratuit sur pc tu en a une ribambelle

une petite macro avec l'object "IE" et c'est bouclé

 

[patricktoulon]

re
?????????
mes lunettes vont tres bien elles sont neuves en plus
et en plus j'ai le filtre bleu

 

[Staple1600]

Re

=>patricktoulon
Je disais cela parce que tu ne m'as pas ajouté dans tes salutations, ni réagi à mes messages.
C'est jamais agréable d'avoir l'impression d'être invisible dans un fil.

Pour revenir à la question
Ce fil est plus prometteur

XL 2010 - Commander un API Serveur SMS via excel

Bonjour à tous, J'ai créé il y a quelques temps un serveur SMS dans le but d'aider la gestion administrative à mon travail (Sapeur Pompier). Ce logiciel permet une gestion à distance via des commandes web donc voici un exemple de code avec un texte : Ce lien n'existe plus le Service General...

www.excel-downloads.com

NB: Il faut juste une Raspberry
(et dans le fil cité, il y a de quoi faire côté VBA (merci tatiak))

 

[Dranreb]

Vous ne savez pas ce que je viens de trouver de mon coté en Excel 2016 ?
Une fonction =URLENCODAGE(UnTexte) et surtout une correspondante WorksheetFunction.EncodeURL !
Je pense qu'il vaut mieux l'utiliser plutôt qu'une moulinette perso, tant la logique du truc est incompréhensible !
Ça aboutit à un codage plus long qu'avec les \uHexa, mais évidemment, mêmes si les espaces et peut être d'autre caractères doivent obligatoirement être rendus complètement incompréhensibles humainement … Quel merdier infâme, les langages d'internet !!

 

[Staple1600]

Re

Dranreb
Pour infos
Disponible aussi sur Excel 2013
(lien de l'aide VBE dans Excel 2013)

 

[Dranreb]

Oui, javais vu aussi.
La WorksheetFunction.EncodeURL(Texte) marche bien pour les traductions de bouts de textes avec "https://translate.google.pl/m?etc.
Je pense que je ne vais plus utiliser que ça pour envoyer des requêtes à internet.
Ma fonction de décodage TexteUHexa demeure indispensable pour intrepréter un résultat de "https://api-adresse.data.gouv.fr/search/?etc.

 

[patricktoulon]

re
@Staple1600 , @Dranreb

j'ai repris ton idée Dranreb pour G translate

Function EncodeText2(chaine) As String    'sur la base Dranreb exceldownload
    Dim chaine2$, P&, c$, A&
    chaine2 = chaine
    For P = 1 To Len(chaine)
        c = Mid$(chaine, P, 1): A = AscW(c)
         If A > 127 Then
            chaine2 = Replace(chaine2, c, "\u" & Right$("000" & LCase$(Hex$(A)), 4))
       ElseIf A = 32 Then
            chaine2 = Replace(chaine2, c, "+")
        ElseIf A = 39 Then chaine2 = Replace(chaine2, c, "%" & Hex$(A))
        End If
    Next
    EncodeText2 = chaine2
End Function

resultat
Les+\u00e9l\u00e8ves+vont+\u00e0+l%27\u00e9cole.

je suis quand même étonné de la flexibilité de G translate qui a sa propre code de conversion