Discussion :

[Samy_Bel]

Bonjour à tous

Je souhaite utiliser une API de Infogreffe et je cherche un module existant que je modifierai ensuite.

Pour info la documentation de l'API se trouve sur le lien suivant: https://datainfogreffe.fr/api/doc/

Merci d'avance pour votre aide

[Jean-Philippe André]

Salut,

rien de disponible a ma connaissance sur VBA, mais tu as un Github php a ce sujet :
https://github.com/Rudloff/infogreffe-unofficial-api

Apres dans le principe, tu peux faire du pilotage web a partir de ce que propose Qwazerty : http://qwazerty.developpez.com/tutor...-et-vba-excel/

[patricktoulon]

ou une simple requête avec l'object Microsoft.xmlhttp dispos dans tes librairie

d'ailleurs quand tu test la page web en bas de page tu a l'URL qui se façonne

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Req, url
Set Req = CreateObject("microsoft.xmlhttp")
url = "https://datainfogreffe.fr/api/datasets/1.0/search/?q=truc+machin&lang=fr&start=0"
With Req
.Open "GET", url, False
.send
MsgBox .responsetext
End With
End Sub