Appel de l'API Web à partir d'Access

Question

Je dois appeler une API Web à partir d'une application Access 2010. C'est la première fois que je travaille avec une API à partir d'Access 2010, je ne sais pas comment faire. L'API que je dois appeler est la suivante: https://currencylayer.com/

API obtient le taux de change entre 2 devises ou plus. Mon application sera utilisée par les utilisateurs de l'entreprise en Europe et aux États-Unis. J'ai donc besoin que la devise soit prise en compte lorsqu'un utilisateur génère des rapports. J'ai essayé plusieurs exemples du site, mais ils génèrent un fichier JSON dont je ne suis pas sûr comment le lire car le format semble changer souvent.

Answer 1

Vous pouvez utiliser la bibliothèque MSXML (installée par défaut sur tous les ordinateurs récents).

par exemple:

Public Sub GetQuote2() 

Dim objXML   As Object 
Dim strSymbol  As String 
Dim strURL   As String 
Dim strWFormat  As String 

Set objXML = CreateObject("MSXML2.XMLHTTP") 

strURL = "http://ca.finance.yahoo.com/d/quotes.csv?s=" 
strWFormat = "&f=sl1d1t1c1ohgv&e=.csv" 

strSymbol = "MSFT" 

objXML.Open "GET", strURL & strSymbol & strWFormat, False 
objXML.Send 

Debug.Print "Symbol = " & Split(objXML.ResponseText, ",")(0) 
Debug.Print "Trade = " & Split(objXML.ResponseText, ",")(1) 
Debug.Print "Date = " & Split(objXML.ResponseText, ",")(2) 

End Sub