Erreur avec l'extraction de Siret avec VBA

Bonjour à tous.

Je suis nouveau ici et je débute en vba.
J'ai trouvé ce code pour extraire le Siret à partir des informations suivant sur le forum: Nom, adresse, code postale et ville mais cela ne fonctionne pas chez moi.

Au lieu de rechercher le siret il renvoi valeur

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"
  ' 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

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

En plus, j'ai aussi besoin du code NAF si possible de l'extraire avec vba.

Merci de votre aide à tous

Bonjour,

Inspirez-vous d'abord de cet exemple fourni par BrunoM45 (auquel j'ai rajouté une ligne) dans le sujet https://forum.excel-pratique.com/excel/siret-depuis-nom-adresse-code-postal-et-ville-182760

Bonjour Jerryrmhd et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalites du forum à connaître

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)

Merci pour votre participation

Concernant votre demande (étonnant toutes ces demandes de récup SIRET )
J'ai créé une 2ème fonction pour le code NAF ici : https://forum.excel-pratique.com/excel/extraire-code-naf-a-partir-du-siret-182848

Salut thev

Bonjour Bruno,

On peut aussi n'utiliser qu'une seule fonction pour le Siret et le NAF. Ci-joint ton exemple enrichi avec le NAF

étonnant toutes ces demandes de récup SIRET

Pas vraiment. Car c'est l'époque des bilans comptables 2022 qui pour leur déclarations ont besoin des références Siret des fournisseurs ou des prestataires auxquelles les entreprises ont eu recours. Il arrive assez souvent que cette info ne soit pas disponible en Compta car non saisie au départ ou mal répercutée par le Système d'Information et la Compta n'a plus qu'à se retrousser les manches pour récupérer les infos manquantes...

D'ailleurs, en général, elle n'a pas à le faire car elle n'a pas les éléments nécessaires, la demande remonte donc au service de gestion générateur qui les détient et c'est à lui au final de résoudre le problème.

Re

thev a écrit :

Bonjour Bruno,

On peut aussi n'utiliser qu'une seule fonction pour le Siret et le NAF. Ci-joint ton exemple enrichi avec le NAF

29json-siret-naf.xlsm (18.68 Ko)

Merci thev pour le code toujours aussi bien ficelé

Mais perso, j'aime bien dissocier les infos plutôt que d'avoir une matrice.
Ceci dit, je n'aurais pu faire qu'une seule et même fonction avec un argument supplémentaire

Au plaisir