{"id":9312,"date":"2020-10-25T07:59:40","date_gmt":"2020-10-25T06:59:40","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=9312"},"modified":"2020-10-24T01:44:10","modified_gmt":"2020-10-23T23:44:10","slug":"telecharger-et-scinder-la-base-des-numeros-siren-base-sirene","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=9312","title":{"rendered":"T\u00e9l\u00e9charger et scinder la base des num\u00e9ros SIREN (base SIRENE)"},"content":{"rendered":"

La loi pour une R\u00e9publique num\u00e9rique (Loi n\u00b0 2016-1321 du 7 octobre 2016) a ouvert les bases de donn\u00e9es SIRENE (principe de l\u2019open data<\/em>) \u00e0 partir de janvier 2017.<\/p>\n

Le site SIRENE<\/a> (g\u00e9r\u00e9 par l\u2019INSEE) propose plusieurs bases de donn\u00e9es en t\u00e9l\u00e9chargement int\u00e9gral regroupant les donn\u00e9es des millions d\u2019entreprises fran\u00e7aises (SIREN) et de leurs \u00e9tablissements (SIRET). Depuis 1973, SIRENE a enregistr\u00e9 vingt millions d\u2019entreprises et 28 millions d\u2019\u00e9tablissements.<\/p>\n

\"Logo<\/a><\/p>\n

Le fichier \u201cStockUniteLegale\u201d d\u00e9taille les informations SIREN (d\u00e9nomination sociale, NIC, date de cr\u00e9ation, date de cessation\u2026) des entreprises (unit\u00e9s l\u00e9gales) qu\u2019elles soient en activit\u00e9 ou bien radi\u00e9es. Elles sont utiles pour valider l\u2019existence d\u2019entreprises (num\u00e9ros SIREN) et la coh\u00e9rence des donn\u00e9es comprises dans une base clients ou fournisseurs (\u00e0 l\u2019image d\u2019un des objectifs poursuivis par PADoCC_Ecritures<\/a>).<\/p>\n

La version disponible au 1er octobre 2020 du fichier \u201cStockUniteLegale\u201d sur le site SIRENE<\/a> p\u00e8se 651 Mo compress\u00e9s et 2.7 Go une fois d\u00e9compress\u00e9e ; autant dire que, du fait de son volume, ce fichier est impossible \u00e0 ouvrir dans Excel ou Access.<\/p>\n

Le programme ci-dessous se propose de tron\u00e7onner la base SIREN en fichiers CSV de 800 milles lignes. Pour le lecteur press\u00e9, le r\u00e9sultat de ce d\u00e9coupage peut \u00eatre t\u00e9l\u00e9charg\u00e9 directement depuis la page suivante<\/a>.<\/p>\n

'D\u00e9coupage base SIRENE en fichiers de 800 mille lignes chacun\r\n'B. RIVIERE 10\/2020\r\n\r\nOption Compare Database\r\n\r\n'Activer la librairie Microsoft Scripting Runtime (Menu Outils \/ R\u00e9f\u00e9rences...)\r\n\r\n'D\u00e9finition des variables\r\n'---Fichier SIREN (source)\r\nDim oFSOLect As Scripting.FileSystemObject\r\nDim oFlLect As Scripting.File\r\nDim oTxtLect As Scripting.TextStream\r\n'---Fichier SIREN d\u00e9coup\u00e9 (destination)\r\nDim oFSOEnreg As FileSystemObject\r\nDim oTxtEnreg As TextStream\r\n'---Variables compteurs\r\nDim i As Long 'position dans le fichier destination (n\u00b0 de ligne)\r\nDim j As Long 'n\u00b0 de fichier destination\r\n\r\nSub Lecture_SIREN()\r\n    'Instanciation du FSO Lecture\r\n    Set oFSOLect = New Scripting.FileSystemObject\r\n    Set oFlLect = oFSOLect.GetFile(\"C:\\Lecture SIREN\\StockUniteLegale_utf8.csv\")\r\n    Set oTxtLect = oFlLect.OpenAsTextStream(ForReading)\r\n    'Le premier fichier portera le n\u00b0 1\r\n    j = 1\r\n    'Boucle While... Wend : tant que la fin du fichier source n'est pas atteinte (.AtEndOfStream)\r\n    While Not oTxtLect.AtEndOfStream\r\n        'Instanciation du FSO Enregistrement (destination)\r\n        Set oFSOEnreg = New FileSystemObject\r\n        Set oTxtEnreg = oFSOEnreg.CreateTextFile(\"C:\\Lecture SIREN\\SIREN \" & j & \".csv\", True)\r\n        '-> True : \u00e9crase le fichier destination (Overwrite) s'il existe d\u00e9j\u00e0\r\n        'Reporte le nom des champs (ent\u00eate) du fichier source dans les fichiers destination >1\r\n        If j > 1 Then oTxtEnreg.WriteLine \"siren,statutDiffusionUniteLegale,unitePurgeeUniteLegale,dateCreationUniteLegale,sigleUniteLegale,sexeUniteLegale,prenom1UniteLegale,prenom2UniteLegale,prenom3UniteLegale,prenom4UniteLegale,prenomUsuelUniteLegale,pseudonymeUniteLegale,identifiantAssociationUniteLegale,trancheEffectifsUniteLegale,anneeEffectifsUniteLegale,dateDernierTraitementUniteLegale,nombrePeriodesUniteLegale,categorieEntreprise,anneeCategorieEntreprise,dateDebut,etatAdministratifUniteLegale,nomUniteLegale,nomUsageUniteLegale,denominationUniteLegale,denominationUsuelle1UniteLegale,denominationUsuelle2UniteLegale,denominationUsuelle3UniteLegale,categorieJuridiqueUniteLegale,activitePrincipaleUniteLegale,nomenclatureActivitePrincipaleUniteLegale,nicSiegeUniteLegale,economieSocialeSolidaireUniteLegale,caractereEmployeurUniteLegale\"\r\n        'la premi\u00e8re ligne \u00e0 \u00e9crire\r\n        i = 1\r\n        'Boucle While... Wend : tant que la 800 milli\u00e8me ligne du fichier destination, ni la fin du fichier source n'est pas atteinte...\r\n        While Not oTxtLect.AtEndOfStream And i < 800000\r\n            oTxtEnreg.WriteLine oTxtLect.ReadLine\r\n            'On passe \u00e0 la ligne suivante\r\n            i = i + 1\r\n        Wend 'Retour au d\u00e9but de la boucle\r\n        oTxtEnreg.Close\r\n        'On passe au fichier destination suivant\r\n        j = j + 1\r\n    Wend\r\n    oTxtLect.Close\r\nEnd Sub<\/pre>\n
La documentation t\u00e9l\u00e9chargeable ci-apr\u00e8s d\u00e9taille le contenu de chaque champ de donn\u00e9es du fichier SIREN.<\/p>\n
Approfondir le sujet : VBA<\/a>.<\/p>\n
\"Share<\/a>