Connexion VBA à une API nécessitant un token
Bonjour,
Je viens vers vous aujourd'hui pour que vous puissiez m'éclairer de vos lanternes. En effet, débutant en VBA et devant faire face à un problème me demandant de me connecter à un site internet pour importer des données dans ce dernier, j'ai une vague idée de ce que je dois faire.
De ce que j'ai déjà compris je dois, décomposer mon code en deux parties. Une première où je m'identifie via l'utilisation d'un token. Et un second où je dois réaliser cet import de données.
J'ai déjà réalisé la partie identification grâce au token malheureusement, ce dernier ne semble pas fonctionner. Je me permet de l'ajouter dans la suite du message, dans l'espoir que quelqu'un puisse m'aider!
Dim hReq As Object, Json As Dictionary
Dim sht As Worksheet
Dim authKey As String
authKey = "L'endroit ou je met mon token"
Set sht = Sheet1
Dim strUrl As String
strUrl = "Lien de l'url"
Set hReq = CreateObject("MSXML2.XMLHTTP")
With hReq
.Open "GET", strUrl, False
.SetRequestHeader "Authorization", "Bearer " & authKey
.Send
End With
Dim response As String
response = hReq.ResponseText
MsgBox responseEdit modo : merci de mettre le code entre balises avec le bouton </>
Merci d'avance de vos réponses
Bonjour Serwan et
Perso, j'aurais fait l'authentification dans le open
.Open "GET", strUrl, True, username, passwordA tester
Désolé, pour cet oubli matinal de la balise dans mon précédent message!
Je vais essayer ça de suite
Merci pour ton aide, j'ai enfin réussi à avoir les informations. Mais un autre problème se présente à moi maintenant... Toutes les informations que je récupère sont dans la même case et sous ce forme:
{"data":[{"id":"0082DE8B-63E4-4686-B80C-28E133C292AE","type":"TESTRVA","attributes":{"Chiffre":"899"},"relationships":[]},{"id":"156CB4A0-B4A0-44CA-B155-0C2763A8D856","type":"TESTRVA","attributes":{"Chiffre":"159"},"relationships":[]},{"id":"599CC42D-522D-43EB-8AB0-AEC4B3BF6E8B","type":"TESTRVA","attributes":{"Chiffre":"158"},"relationships":[]},{"id":"5DEFAAC0-0B9E-4AD9-9278-5E9649C5B33A","type":"TESTRVA","attributes":{"Chiffre":"1500"},"relationships":[]},{"id":"5F6068C4-768A-4818-9AA3-A9DF00C1B52D","type":"TESTRVA","attributes":{"Chiffre":"1000"},"relationships":[]},{"id":"7FF685AC-DC1B-45BE-BF0F-2D85C162D25B","type":"TESTRVA","attributes":{"Chiffre":"1500"},"relationships":[]},{"id":"8F30EFF9-4D49-432E-80DE-743BBECE4AD3","type":"TESTRVA","attributes":{"Chiffre":"2"},"relationships":[]},{"id":"91F79CAE-7B13-49FC-8DDD-62AD8B548841","type":"TESTRVA","attributes":{"Chiffre":"1000"},"relationships":[]},{"id":"9EBD13AC-71B0-4BA3-937C-31B9C00BA4E9","type":"TESTRVA","attributes":{"Chiffre":"4"},"relationships":[]},{"id":"C205E478-DD4E-4CCA-9F14-6BD3B4510B0F","type":"TESTRVA","attributes":{"Chiffre":"1"},"relationships":[]},{"id":"CBB78D81-0BE3-4515-B77F-48F33D774FF7","type":"TESTRVA","attributes":{"Chiffre":"1500"},"relationships":[]}]}Comme dit, toutes ces informations sont présentes dans la même case. Je souhaiterais les organiser sous forme d'un tableau un " un peu plus ordonnée".