{"id":9377,"date":"2020-12-19T14:47:47","date_gmt":"2020-12-19T13:47:47","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=9377"},"modified":"2020-12-20T14:41:33","modified_gmt":"2020-12-20T13:41:33","slug":"excel-vba-obtenir-les-informations-juridiques-dune-societe-a-partir-de-son-numero-siren-et-a-laide-de-lapi-de-pappers-fr","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=9377","title":{"rendered":"EXCEL, VBA : obtenir les informations juridiques d’une soci\u00e9t\u00e9 \u00e0 l’aide de l’API de Pappers.fr"},"content":{"rendered":"

La collecte d’informations qualifi\u00e9es sur les tiers avec lesquels une entreprise est en affaire est primordiale surtout dans le contexte de crise actuel. Par ailleurs, cette pratique r\u00e9pond \u00e0 des obligations l\u00e9gales en rapport avec l’\u00e9valuation du risques de contr\u00f4le interne (PAF) ou encore la lutte contre le blanchiment<\/a>, la corruption et le financement du terrorisme<\/a> (loi SAPIN 2…).<\/p>\n

Ce processus de collecte gagne \u00e0 \u00eatre syst\u00e9matis\u00e9 et automatis\u00e9. Les API (Application Programming Interface<\/em> ou interface de programmation applicative) aident \u00e0 d\u00e9velopper ces pratiques.<\/p>\n

\"Pappers.fr<\/a><\/p>\n

Un API assure l’interface entre deux syst\u00e8mes. Par exemple, les logiciels de paye t\u00e9l\u00e9transmettent les D\u00e9clarations Sociales Nominatives (DSN) vers les serveurs de l’\u00c9tat par l’interm\u00e9diaire d’un API.<\/p>\n

Le fonctionnement d’un API est simple. Un logiciel envoie une requ\u00eate \u00e0 un site internet ou \u00e0 un autre logiciel par le biais de son API. Le site internet ex\u00e9cute la requ\u00eate, interroge ses bases de donn\u00e9es et renvoie le r\u00e9sultat au logiciel, qui int\u00e8gre ses donn\u00e9es dans son processus de calcul. Les API assurent ainsi l’interaction entre des logiciels d’\u00e9diteurs diff\u00e9rents.<\/p>\n

Excel est en capacit\u00e9 d’interroger un API web (protocole HTTP). A titre d’exemple, la feuille de calcul Excel (fournie en libre t\u00e9l\u00e9chargement) permet d’interroger, \u00e0 l’aide de requ\u00eates, la base de donn\u00e9es d’informations juridiques Pappers.fr<\/a> gr\u00e2ce son API.<\/p>\n

Pour utiliser l’API Pappers.fr, il est n\u00e9cessaire de s’inscrire gratuitement<\/a> sur le site. Suite \u00e0 cette inscription, l’utilisateur obtient un Token (identifiant unique personnel) qui sert de clef pour communiquer avec Pappers.fr. La feuille de calcul n’est utilisable qu’apr\u00e8s insertion de ce token dans le code VBA (\u00e0 la place des XXXXX de la ligne Const Pappers_Token = “api_token=XXXXX”)<\/strong>. Pour acc\u00e9der au code VBA, il faut ajouter le menu D\u00e9veloppeur<\/a> au ruban de menus d’Excel puis cliquer sur le bouton Visual Basic.<\/p>\n

La version gratuite de l’API Pappers permet de consulter dix mille fiches entreprises par mois et mille t\u00e9l\u00e9chargements de documents par mois, ce qui r\u00e9pond aux besoins les plus usuels.<\/p>\n

Param\u00e8tres de la requ\u00eate envoy\u00e9e \u00e0 Pappers (QUERY PARAMETERS) et statuts de la r\u00e9ponse (RESPONSES) :<\/p>\n

\"Pappers.fr<\/a><\/p>\n

Exemple de requ\u00eate :<\/p>\n

https:\/\/api.pappers.fr\/v1\/entreprise?api_token=XXXXXXXX&siren=542065479<\/p>\n

R\u00e9ponse de l’API pour le SIREN 542 065 479 (PSA AUTOMOBILES) :<\/p>\n

\"Pappers.fr<\/a><\/p>\n

La r\u00e9ponse de Pappers comprend quatre statuts diff\u00e9rents. Si le SIREN existe (et que le Token est reconnu), la r\u00e9ponse renvoy\u00e9e comprend le statut 200 et les champs de donn\u00e9es correspondant \u00e0 la fiche juridique.<\/p>\n

Extrait des champs disponibles sur l’interface Pappers.fr :<\/p>\n

\"Pappers.fr<\/a><\/p>\n

La feuille de calcul ci-apr\u00e8s interroge la base Pappers et restitue les donn\u00e9es suivantes :<\/p>\n

\"Pappers.fr<\/a><\/p>\n

L’utilisateur saisit un num\u00e9ro SIREN et clique sur le bouton Importation. Ce bouton d\u00e9clenche l’ex\u00e9cution d’une macro VBA qui envoie une requ\u00eate (Set Req = CreateObject(“MSXML2.ServerXMLHTTP”) Req.Open “GET”, URL, False Req.Send<\/em>) vers l’API et analyse la r\u00e9ponse re\u00e7ue en retour (R\u00e9ponse = Req.ResponseText<\/em>).<\/p>\n

La feuille de calcul affiche un \u00e9chantillon de donn\u00e9es contenu dans la r\u00e9ponse de l’API.<\/p>\n

Le code source de la macro VBA est le suivant :<\/p>\n

'Macro VBA d'interrogation des bases Pappers (API)\r\n'Ecrit par Beno\u00eet RIVIERE 12\/2020, benoit@auditsi.eu\r\n'Informations : https:\/\/www.auditsi.eu\/?p=9377\r\n\r\nOption Explicit\r\n\r\n\r\n'Constantes\r\n'---Token Pappers : pour en obtenir un gratuitement : https:\/\/www.pappers.fr\/api\/register\r\nConst Pappers_Token = \"api_token=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\"\r\n'---Adresse HTTP de l'API Pappers\r\nConst Pappers_URL = \"https:\/\/api.pappers.fr\/v1\/entreprise\"\r\n\r\n\r\nFunction Extraction_champ(Cha\u00eene As Variant, NomChamp)\r\n    Dim PositionD\u00e9but As Long\r\n    \r\n    NomChamp = NomChamp & \"\"\":\"\"\"\r\n    \r\n    PositionD\u00e9but = InStr(Cha\u00eene, NomChamp) + Len(NomChamp)\r\n\r\n    Extraction_champ = Mid(Cha\u00eene, PositionD\u00e9but, InStr(Right(Cha\u00eene, Len(Cha\u00eene) - PositionD\u00e9but + 1), \"\"\"\") - 1)\r\nEnd Function\r\n\r\n\r\nSub Infos_Jur()\r\n    Dim SIREN As String\r\n    Dim URL As String\r\n    Dim R\u00e9ponse As String\r\n    Dim Req As Object\r\n    Dim i As Integer\r\n    Dim MsgErreur As String\r\n    Dim LibChamp As String\r\n    Dim Champ As String\r\n    Dim ligne As Integer\r\n    Dim D\u00e9nomSoc As String\r\n    \r\n    'Lecture SIREN\r\n    SIREN = ActiveSheet.Range(\"B6\")\r\n    '---Si SIREN est vide sortir de la proc\u00e9dure\r\n    If SIREN = \"\" Then Exit Sub\r\n    \r\n    'Constitution de l'URL \u00e0 requ\u00eater\r\n    URL = Pappers_URL & \"?\" & Pappers_Token & \"&siren=\" & SIREN\r\n    'Envoi de la requ\u00eate au site Pappers\r\n    Set Req = CreateObject(\"MSXML2.ServerXMLHTTP\")\r\n    Req.Open \"GET\", URL, False\r\n    Req.Send\r\n    'Lecture de la r\u00e9ponse \u00e0 la requ\u00eate restitu\u00e9e par Pappers\r\n    R\u00e9ponse = Req.ResponseText\r\n    \r\n    'Si la r\u00e9ponse correspond \u00e0 un message d'erreur la variable MsgErreur renvoie un message\r\n    MsgErreur = \"\"\r\n    If InStr(R\u00e9ponse, \"statusCode\"\":400,\"\"error\") > 1 Or InStr(R\u00e9ponse, \"statusCode\"\":404,\"\"error\") > 1 Then\r\n        MsgErreur = \"SIREN inconnu !\"\r\n    ElseIf InStr(R\u00e9ponse, \"statusCode\"\":401,\"\"error\") > 1 Then\r\n        MsgErreur = \"Token non reconnu ! Pour obtenir un Token valide, s'inscrire sur https:\/\/www.pappers.fr\/api\/register\"\r\n    End If\r\n    \r\n    'Restitution des donn\u00e9es juridiques\r\n    For i = 1 To 10 '10 champs de donn\u00e9es restitu\u00e9s\r\n        'Extraction des champs de donn\u00e9es\r\n        Select Case i\r\n            Case 1:\r\n                LibChamp = \"D\u00e9nomination sociale\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"denomination\")\r\n                D\u00e9nomSoc = Champ\r\n            Case 2:\r\n                LibChamp = \"Forme juridique\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"forme_juridique\")\r\n            Case 3:\r\n                LibChamp = \"Capital social\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"capital\")\r\n            Case 4:\r\n                LibChamp = \"Code postal + ville\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"code_postal\") & \" \" & Extraction_champ(R\u00e9ponse, \"ville\")\r\n            Case 5:\r\n                LibChamp = \"Latitude \/ Longitude\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"latitude\") & \" \/ \" & Extraction_champ(R\u00e9ponse, \"longitude\")\r\n            Case 6:\r\n                LibChamp = \"Activit\u00e9 (NAF)\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"code_naf\") & \". \" & Extraction_champ(R\u00e9ponse, \"libelle_code_naf\")\r\n            Case 7:\r\n                LibChamp = \"Objet social\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"objet_social\")\r\n            Case 8:\r\n                LibChamp = \"Date de cr\u00e9ation\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"date_creation_formate\")\r\n            Case 9:\r\n                LibChamp = \"Entreprise cess\u00e9e\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"entreprise_cessee\")\r\n            Case 10:\r\n                LibChamp = \"Num\u00e9ro de TVA intracommunautaire\"\r\n                Champ = Extraction_champ(R\u00e9ponse, \"numero_tva_intracommunautaire\")\r\n        End Select\r\n        'Ligne de la feuille de calcul o\u00f9 coller le champ en cours\r\n        ligne = 9 + (i - 1) * 2\r\n        'Si le SIREN est inconnu -> renvoyer un message d'erreur\r\n        If MsgErreur <> \"\" Then Champ = MsgErreur\r\n        \r\n        'Transfert des donn\u00e9es dans le classeur Excel\r\n        With ActiveSheet\r\n            .Range(\"A\" & ligne).Value = LibChamp\r\n            .Range(\"B\" & ligne).Value = Champ\r\n        End With\r\n    Next i\r\n    \r\n    'Liens hypertextes\r\n    With ActiveSheet\r\n        If MsgErreur <> \"\" Then\r\n            .Range(\"A\" & ligne + 2).Value = \"\"\r\n        Else\r\n            .Hyperlinks.Add Anchor:=.Range(\"A\" & ligne + 2), Address:=\"https:\/\/www.pappers.fr\/entreprise\/\" & SIREN, TextToDisplay:=\"Cliquer ici pour acc\u00e9der \u00e0 la fiche juridique Pappers de l'entreprise \" & D\u00e9nomSoc\r\n        End If\r\n        .Hyperlinks.Add Anchor:=.Range(\"A\" & ligne + 4), Address:=\"https:\/\/www.auditsi.eu\/?p=9377\", TextToDisplay:=\"Plus d'informations sur www.auditsi.eu\"\r\n    End With\r\nEnd Sub\r\n<\/pre>\n
D’autres sites d’informations l\u00e9gales ou de cotation d’entreprises proposent des API, par exemple :<\/p>\n