XL 2013 Clé API ?

Dranreb

XLDnaute Barbatruc

• 20 Octobre 2019

• #16

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Octobre 2019

• #17

re
cette fonction existe sur 2007?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Octobre 2019

• #18

Ça je l'ignore …

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2019

• #19

Re

patricktoulon à dit:

re
cette fonction existe sur 2007?

Cliquez pour agrandir...

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

(=>patricktoulon: voir message#13 😉)

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Octobre 2019

• #20

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

VB:

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

 

Dernière édition: 20 Octobre 2019

Vote positif 0 Vote négatif

J

jpmetge

Guest

• 20 Octobre 2019

• #21

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2019

• #22

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)

 

Vote positif 0 Vote négatif