XL 2016 [VBA] recherche des codes postale par rapport au numéro de sien de l'entreprise

[Anr1]

Bonjour,

je demands votre aide sur le domaine de codage en VBA svp.

J'ai un fichier Excel avec des numéros des SIREN des entreprises et je cherche à voir la région ou se trouve l'entreprise..

Est ce qu'il existe un code VBA pour trouver le code postal d'une Siren d'entreprise?


Merci par avance

 

[patty58]

Bonjour

Je ne pense pas que le SIREN d'une entreprise puisse indiquer son code postal, VBA ou pas.
....

 

[Hasco]

bonjour,

Vous avez un formulaire de recherche sur la page de Sirene.fr :

https://www.sirene.fr/sirene/public/recherche

Sinon l'api officielle (lisez bien dans quel cadre vous pouvez utilisez l'api, loi informatique et liberté RGPD, etc),

API Sirene

API Sirene est une des APIs du service public. Accéder aux informations concernant les entreprises et les établissements immatriculés au répertoire…

api.gouv.fr

Si elle est gratuite, il faut néanmoins ouvrir un compte pour l'utiliser.


Et la base de données (sous différentes formes) en open source

https://www.data.gouv.fr/fr/datasets/5b7ffc618b4c4169d30727e0/

Cordialement

 

[p56]

Bonjour à tous,
Voici une démo pour récupérer un CP d'après un SIREN (liste des SIREN à placer en colonne A) :

 

[Anr1]

Bonjour à tous,
Voici une démo pour récupérer un CP d'après un SIREN (liste des SIREN à placer en colonne A) :
Regarde la pièce jointe 1130346

Bonjour @p56,

C'est exactement ce que je cherche, je t'en remercie infiniment!

J'ai lu le code mais j'arrive pas a comprendre tout les étapes, y a un moyen pour avoir les commentaires dans le code svp?

Merci bcp

 

[p56]

Bonjour à tous,
Alors pour expliquer le code :
* Le principe est d'interroger un site publique de données en Opendata (publique et gratuit)
* Ce site retourne un résultat au format json
* Pour lire ce json, on injecte du javascript pour faciliter le décodage
* Les 2 functions importées (pour le "ScriptControl") des sites indiqués sont utilisées ici pour rendre le code compatible office 32bits et 64 bits
* ce code provient d'une de mes appli plus complète, ici très simplifié, donc certains éléments ne sont pas utilisés pour une simple lecture du CP. En fait on peut récupérer aussi les fiches signalétiques complètes des établissements avec multi-adresses le cas échéant, par exemple on pourrait ajouter :

    .Cells(i, "B").Value = "'" & Rcd.TRcd(0).codepostaletablissement
    .Cells(i, "C").Value = "'" & Rcd.TRcd(0).siretsiegeunitelegale
    .Cells(i, "D").Value = "'" & Rcd.TRcd(0).libellecommuneetablissement

 

[Anr1]

Bonjour à tous,
Alors pour expliquer le code :
* Le principe est d'interroger un site publique de données en Opendata (publique et gratuit)
* Ce site retourne un résultat au format json
* Pour lire ce json, on injecte du javascript pour faciliter le décodage
* Les 2 functions importées (pour le "ScriptControl") des sites indiqués sont utilisées ici pour rendre le code compatible office 32bits et 64 bits
* ce code provient d'une de mes appli plus complète, ici très simplifié, donc certains éléments ne sont pas utilisés pour une simple lecture du CP. En fait on peut récupérer aussi les fiches signalétiques complètes des établissements avec multi-adresses le cas échéant, par exemple on pourrait ajouter :

    .Cells(i, "B").Value = "'" & Rcd.TRcd(0).codepostaletablissement
    .Cells(i, "C").Value = "'" & Rcd.TRcd(0).siretsiegeunitelegale
    .Cells(i, "D").Value = "'" & Rcd.TRcd(0).libellecommuneetablissement

Excellent!
On peut ajouter la région aussi? comme (ils de France - Pays de la Loire...)?
J'ai essayé mais j'arrive pas ou on peut trouver les variables de la table Public..

Merci par avance

 

[Anr1]

Bonjour @p56,

C'est bon j'ai trouvé les variables de la tables source

Merci encore une fois !

 

[p56]

Pour d'autres, si besoin

 

[Anr1]

Pour d'autres, si besoin

Je t'en remercie

 

[Fabiends]

Bonjour,

je débute en VBA mais il me semble que l'API dans le code n'est plus à jour nn ?

merci bcp !

 

[p56]

Bonjour,

En effet, l'adresse de l'opendata a changé.
Voici un fichier démo mis à jour avec la nouvelle adresse.
Joint dans le zip la liste des champs qu'il est possible d'afficher dans la réponse.
Ici pour l'exemple (siren pris au hasard) le code retourne le CP, la ville et le Siret.
Précision il s'agit toujours de la base Siren V3, avec la structure version v2.1 de l'opendata.

P.

 

[Fabiends]

Super utile merci bcp pour votre aide, c'est TOP !!!

 

[ramzinho]

Bonjour Merci pour le fichier. J'ai une question, Pour quelle raison la macro ne fonctionne pas sur tous les SIREN?Est-ce un problème de MAJ dans la base?

Merci par avance,