{"id":9359,"date":"2020-12-13T00:34:07","date_gmt":"2020-12-12T23:34:07","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=9359"},"modified":"2020-12-13T00:34:07","modified_gmt":"2020-12-12T23:34:07","slug":"excel-obtenir-la-denomination-sociale-et-le-numero-de-tva-intracommunautaire-dune-societe-a-partir-de-son-numero-siren","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=9359","title":{"rendered":"EXCEL : obtenir la d\u00e9nomination sociale et le num\u00e9ro de TVA intracommunautaire d’une soci\u00e9t\u00e9 \u00e0 partir de son num\u00e9ro SIREN"},"content":{"rendered":"

Lorsque l’on lance la consultation d’un site internet, le navigateur (Mozilla, Chrome, Internet Explorer…) envoie une requ\u00eate \u00e0 ce site. Ce site retourne sa r\u00e9ponse et le navigateur l’affiche, g\u00e9n\u00e9ralement, sous la forme d’une page mise en forme avec le langage HTML (HyperText Mark-Up Language) et agr\u00e9ment\u00e9e d’\u00e9l\u00e9ments dynamiques encod\u00e9s PHP ou JavaScript.<\/p>\n

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

Il est parfaitement possible d’envoyer des requ\u00eates non pas \u00e0 partir d’un navigateur internet mais \u00e0 partir d’un programme VBA (par exemple) pour ensuite extraire les donn\u00e9es utiles du r\u00e9sultat retourn\u00e9 par le site.<\/p>\n

Par exemple, le site d’information juridique Pappers.fr<\/a> renvoie le texte HTML (ici un extrait)  suivant  au sujet de la soci\u00e9t\u00e9 PSA AUTOMOBILES SA (SIREN 542 065 479) :<\/p>\n

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

Ce code est affich\u00e9 ainsi par un navigateur internet (ici Mozilla) :<\/p>\n

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

Le code HTML retourn\u00e9 par Pappers contient de nombreuses informations juridiques ayant trait \u00e0 la soci\u00e9t\u00e9 interrog\u00e9e comme sa d\u00e9nomination sociale, l’adresse de son si\u00e8ge social…<\/p>\n

Il est ais\u00e9 d’extraire de ce code des informations. C’est l’objet du code VBA ci-apr\u00e8s.<\/p>\n

Ce code cr\u00e9e deux fonctions directement utilisables dans des formules de calcul Excel au m\u00eame titre que SOMME ou RECHERCHEV. Pour ajouter de nouvelles fonctions \u00e0 Excel, lire l’article EXCEL : Cr\u00e9er une fonction en VBA<\/a>.<\/p>\n

Ces deux fonctions sont D\u00e9nominationSociale et Num\u00e9roTVAIntracommunautaire et s’utilisent dans des formules Excel ainsi :<\/p>\n

=D\u00e9nominationSociale(“542065479”)<\/p>\n

=Num\u00e9roTVAIntracommunautaire(“542065479”)<\/p>\n

Function D\u00e9nominationSociale(ByVal SIREN As String)\r\n    Dim Url As String, Txt As String\r\n    Url = \"https:\/\/www.pappers.fr\/entreprise\/\" & SIREN\r\n    With CreateObject(\"WINHTTP.WinHTTPRequest.5.1\")\r\n        .Open \"GET\", Url, False\r\n        .send\r\n        Txt = .responseText\r\n    End With\r\n    D\u00e9nominationSociale = Split(Split(Txt, \"<h1 class=\"\"small-text\"\">\")(1), \"<\/h1\")(0)\r\nEnd Function\r\n\r\nFunction Num\u00e9roTVAIntracommunautaire(ByVal SIREN As String)\r\n    Dim Url As String, Txt As String\r\n    Url = \"https:\/\/www.pappers.fr\/entreprise\/\" & SIREN\r\n    With CreateObject(\"WINHTTP.WinHTTPRequest.5.1\")\r\n        .Open \"GET\", Url, False\r\n        .send\r\n        Txt = .responseText\r\n    End With\r\n    Num\u00e9roTVAIntracommunautaire = Split(Split(Txt, \"TVA intracommunautaire : <span>\")(1), \"<\/span>\")(0)\r\nEnd Function<\/pre>\n
Ces fonctions fonctionnement toutes deux de la m\u00eame mani\u00e8re. Elles envoient une requ\u00eate (CreateObject(“WINHTTP.WinHTTPRequest.5.1”) .Open “GET”, Url, False . Send<\/em>) au site Pappers (dont l’adresse est contenue dans la variable Url (https:\/\/www.pappers.fr\/entreprise\/” & SIREN<\/em>). Le num\u00e9ro SIREN contenu dans la variable SIREN est communiqu\u00e9 par l’utilisateur par le bias de la formule Excel.<\/p>\n
Le r\u00e9sultat de la requ\u00eate est r\u00e9cup\u00e9r\u00e9 par la variable Text (Txt = .responseText<\/em>).<\/p>\n
La fonction Split<\/a> permet de r\u00e9cup\u00e9rer l’information souhait\u00e9e (soit la d\u00e9nomination sociale et le num\u00e9ro de TVA intracommunautaire). La fonction Split convertit une cha\u00eene de caract\u00e8res en une variable tableau<\/a> en fonction de s\u00e9parateurs.<\/p>\n
Extrait du code HTML contenant la d\u00e9nomination sociale :<\/p>\n
\"Pappers.fr<\/a><\/p>\n
Extrait du code HTML contenant le num\u00e9ro de TVA intracommunautaire :<\/p>\n
\"Pappers.fr<\/a><\/p>\n
Le classeur Excel comprenant les fonctions VBA expos\u00e9es ci-avant est t\u00e9l\u00e9chargeable ci-apr\u00e8s.<\/p>\n
__<\/p>\n
Approfondir le sujet : Programmer en VBA<\/a><\/p>\n
\"Share<\/a>