Bonjour,
Voici mon projet :
- développer un outil permettant de rédiger les contrats de façon automatique.
Pour cela, j'ai besoin de me connecter au site societe.com puis de récupérer certaines informations, à savoir :
- la forme juridique
- le nom commercial de l'entreprise
- l'adresse postale
- le numéro de SIRET
- le numéro de TVA intracommunautaire
- le numéro RCS
- le capital social
Dans mon outil Excel je possède déjà le numéro de SIRET par un autre biais. Je me connecte alors sur la page societec.com correspondant au SIRET recherché mais ensuite j'aurais besoin de récupérer les autres informations listées ci dessus.
Voici mon code pour récupérer par exemple la forme juridique :
Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub IETest5() Dim ie As New InternetExplorer ie.Visible = True ie.navigate "https://www.societe.com/societe/" & Range("E20").Value & "-" & Range("AK2").Value & ".html" Do While ie.Busy Application.Wait DateAdd("s", 1, Now) Loop Dim HTMLDoc As HTMLDocument Set HTMLDoc = ie.document StatutJuridique = document.getElementById("catjur-histo-description") MsgBox StatutJuridique End Sub
Pourriez vous m'aider ?
D'avance merci !
Partager