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 !