Adapter VBA pour trouver Siret

Bonjour,

j'ai eu ce code vba par Bruno,merci a lui

Function RécupSIRET(sNom As String, sAdresse As String)
  Dim JsonRésultat As String, Siret As String
  Dim Résultat() As String, Nb_résultats As Long
  Dim API_Recherche_Entreprises As String
  ' Adresse Web de l'API
  API_Recherche_Entreprises = "LIEN API GOUV.FR"
  ' Aller chercher l'information
  JsonRésultat = Application.WebService(API_Recherche_Entreprises & "?q=" & sNom & " " & sAdresse)
  ' Retravailler le résultat
  JsonRésultat = Replace(JsonRésultat, "{""results"": [", "")
  JsonRésultat = Replace(JsonRésultat, "{", "")
  JsonRésultat = Replace(JsonRésultat, "}", "")
  JsonRésultat = Replace(JsonRésultat, "]", "")
  ' Récupérer le résultat dans un tableau
  Résultat = Split(JsonRésultat, ",")
  ' Nombre de résultat trouvés
  Nb_résultats = Val(Split(Filter(Résultat, "total_results")(0), ":")(1))
  ' Petit message
  If Nb_résultats = 0 Then RécupSIRET = "aucun résultat": Exit Function
  If Nb_résultats > 1 Then RécupSIRET = "plus d'un résultat - recherche non sélective ": Exit Function
  ' Récupérer ce qui nous intéresse dans le résultat JSON
  RécupSIRET = Replace(Split(Filter(Résultat, "siret")(0), ":")(1), Chr(34), "")
End Function

NB

Que l'on appelle avec

=Récupsiret(A2;B2 &","&C2&","&D2)

et j'aimerais utiliser le même principe pour trouver le Siret a partir du Nom adresse code postal et ville pour trouver le Siret
Mais cette fois ci sur PAPPERS ou d'autres sites du même genre
Pappers utilise Api
merci a vous

Bonjour eric rmh,

Je me dois de verrouiller le sujet car sauf erreur, vous ne respectez pas les CGU du site en question

Aux vues de ce que vous demander depuis plusieurs jours, je pense que nous sommes en plein dedans

• ne pas collecter des informations sur des tiers, y compris des adresses électroniques, afin de les utiliser pour l’envoi de sollicitations commerciales ou équivalentes, ou de les intégrer au sein d’un service de référencement ou équivalent, gratuit ou payant, ou encore afin d’effectuer de la veille concurrentielle.

De plus la charte du forum le stipule bien

• Ne demandez rien d'illégal ou d'éthiquement discutable (comme par exemple le retrait d'un mot de passe VBA, l'extraction de données d'un site qui ne l'autorise pas, etc).

Merci de votre compréhension