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]

Tu y viens enfin, alors que moi j'y renonce au profit de WorksheetFunction.EncodeURL ?!

 

[patricktoulon]

re
cette fonction existe sur 2007?

 

[Dranreb]

Ça je l'ignore …

 

[Staple1600]

Re

re
cette fonction existe sur 2007?

Non ,cette fonction a été implémentée à partir d'Excel 2013.

(=>patricktoulon: voir message#13 )

 

[Dranreb]

Je propose ça alors, en compilant toutes les considérations prises de ci de là, pour ceux qui ne l'ont pas.

Function EncodeURLBricolé(ByVal Texte As String) As String
   Dim P As Long, C As String, A As Long
   For P = 1 To Len(Texte)
      C = Mid$(Texte, P, 1): A = AscW(C)
      Select Case A
         Case 32: C = "+" ' Worksheetfunction.EncodeURL renvoie "%20", mais bon, si "+" passe, c'est pas plus mal.
         Case Is > 127: C = "\u" & Right$("000" & Hex$(A), 4) ' Worksheetfunction.EncodeURL renvoie une codification incompréhensible.
         Case 0 To 44, 47, 58 To 64, 91 To 94, 96, 123 To 127: C = "%" & Right$("0" & Hex$(A), 2)
         End Select
      EncodeURLBricolé = EncodeURLBricolé & C: Next P
   End Function

Renvoie la même chose que =URLENCODAGE(CAR(x)) pour x de 33 à 127

 

[jpmetge]

Merci à tous pour vos nombreuses réponses.
Je me demandais si la clé API ne concernait pas soit mon compte Samsung, soit mon compte SFR. Qu'en pensez-vous ?
Si oui, comment la récupérer ?

 

[Staple1600]

Re

=>jpmetge
C'est marqué dans le lien que j'ai posté dans le message#3
Il faut être abonné (et donc payer un abonnement)