Discussion :

[PipoWIL]

Bonjour,

Les autorités polonaises mettent à la disposition du public un site web pour vérifier les données de vos partenaires commerciaux. C'est disponible sur un site web https://www.podatki.gov.pl/wykaz-pod...t-wyszukiwarka et via un API.
La description du webservice est aussi disponible https://wl-api.mf.gov.pl/

J'essaye d'utiliser du VBA pour consommer le webservice qui doit me retourner un message JSON.

Lorsque je fais le test avec un browser (MS Internet Explorer ou Google Chrome) avec l'adresse suivante https://wl-api.mf.gov.pl/api/check/n...00000010552826 j'obtiens le joli résultat auquel je m'attends :
Par contre, lorsque j'exécute mon code, je reçois un vilain message 503 Service non disponible.

Pourquoi cette différence ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Test_JSON_NIP_BankA()
 
Dim xmlhtp As MSXML2.XMLHTTP60          'nécessite de spécifier la référence Microsoft XML,v6.0
Dim strURL As String
Dim strJSON As String
Dim strResponseText As String
 
'Description des API disponibles là : https://wl-api.mf.gov.pl
'J'utilise l'API avec le numéro de TVA (NIP) et le numéro de banque
strURL = "https://wl-api.mf.gov.pl/api/check/nip/{nip}/bank-account/{bank-account}"
 
strJSON = "{""nip"":""8961463998"",""bank-account"":""95175010640000000010552826""}"
Debug.Print strJSON
 
Set xmlhtp = New MSXML2.XMLHTTP60                                           'works fine on Access 2016.  (I have defined reference Microsoft XML,v6.0)
 
xmlhtp.Open "POST", strURL, False
xmlhtp.setRequestHeader "Content-type", "application/json"
xmlhtp.setRequestHeader "Accept", "application/json"
xmlhtp.send strJSON
strResponseText = xmlhtp.responseText
 
Debug.Print strResponseText
 
Set xmlhtp = Nothing
 
End Sub

Merci pour le partage de votre expérience.

[nico84]

Bonjour,

Voici la syntaxe qui me sert à lire des cours de devise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub MajDevises
Dim http As MSXML2.ServerXMLHTTP, Liste As String
102 Liste = ""  'reçoit le résultat pour traitement
 
    'Lecture du flux
105 Set http = New MSXML2.ServerXMLHTTP
106 http.Open "GET", "http://www.floatrates.com/daily/eur.json", False 
107 http.send ""
    'En cas de réussite, le code renvoyé est 200
110 If http.Status <> 200 Then
112   Liste = ""
113   MsgBox "Erreur en lecture de devises code " & http.Status
    Else
115   Liste = http.responseText
    End If
116 Set http = Nothing
 
    'analyse du résultat
    ...

Ca se ressemble mais il y a des petites différences qui peuvent expliquer pourquoi l'un marche et pas l'autre

[PipoWIL]

Oui, ça marche.
Super !
Jusqu'à présent, j'utilisais toujours "POST". Je suis content de voir une utilisation avec "GET"
Merci beaucoup