Connexion API depuis VBA

Bonjour,

Je tente désperemment de faire fonctionner le code issu du topic suivant : https://forum.excel-pratique.com/excel/connexion-vba-a-une-api-necessitant-un-token-160461

Mon code est le suivant :

Option Explicit

Dim hReq As Object, Json As Dictionary
Dim sht As Worksheet
Dim authKey As String

authKey = " Clé API"

Set sht = Feuil1

Dim strUrl As String
strUrl = "url de l'API"
Set hReq = CreateObject("MSXML2.XMLHTTP")
With hReq
.Open "GET", strUrl, True, "token", "clé api"
.SetRequestHeader "Authorization", "Bearer <token>" & "clé API"
.Send
End With

Dim response As String
response = hReq.ResponseText

MsgBox response

1. Il me demande de créer une macro lors de l'exécution, je me vois donc ajouter un en bas

Sub test()

End Sub

2. En éxécutant mon morceau de code, il me met une erreur sur la ligne ou je met pourtant bien la valeur de la clé entre guillemet sans espace.

authKey = " Clé API"

3. Ensuite il me met une erreur sur le

Set sht = Feuil1

Pour info, ma connexion sur l'API est ok sur un outil type PostMan.

Auriez vous une piste via le VBA, ou même peut être en complément du PowerQuery si cela existe?

Bonjour Spooner,

Vous ne semblez pas savoir utiliser les variables

https://www.excel-pratique.com/fr/vba/variables

"authkey" est une variable de type string que vous initialisez normalement en début de code

authKey = " Clé API"

Alors pourquoi ne l'utilisez vous pas par la suite !?

.SetRequestHeader "Authorization", "Bearer <token>" & authkey

D'ailleurs pour "<token>" c'est la même chose

A+

Bonjour BrunoM45,

Merci pour votre retour.

J'ai modifié mon code comme suit, mais je ne parvient toujours pas à me connecter, pourriez vous m'indiquer ou mon code bloque :

Sur le site, je suis en Type d'authorisation API Key, et non Bearer, sans doute le point qui bloque mais je ne vois pas comment remplacer

.Open "GET", strUrl, True, token, authKey
.SetRequestHeader "Authorization", "Bearer " & authKey
.Send

Bonjour,

Est ce que quelq'un aurait une idée pour parvenir à se connecter sur une API via du code VBA ?

API utilisant un token + une API Key.

Merci.

Salut je bloque aussi sur un sujet similaire..

Tu ne devrais pas utiliser "POST" comme tu envoi de l'information ? Dans mon cas similaire j'utilise POST en tout cas

A+