Discussion :

[jijie]

Bonjour à tous,

Pour mon travail, j'ai besoin de récupérer le N° de siret de certaine entreprise, et je voudrais automatiser un peu ça mais je n'arrive pas à appuyer sur le bouton "RECHERCHER"

Voici mon code :

Code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
'http://excel.developpez.com/faq/?page=WebHtml#AuthentifSiteWeb
 
 
If TextBox1 = "" Then
  MsgBox "Entrez le nom de l'entreprise !"
  Exit Sub
End If
 
 
 
  Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate ("https://www.infogreffe.fr/societes/recherche-siret-entreprise/chercher-siret-entreprise.html")
 'On Error GoTo fin1
     ' attente de fin de chargement
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
    Set IEdoc = ie.Document
 
    'Nom entreprise
 '<input name="deno" tabIndex="0" class="dijitReset dijitInputInner" id="p1_deno" type="text" data-dojo-attach-point="textbox,focusNode" autocomplete="off" oninput="function(){var args=arguments;var _53e=_53d.before;while(_53e){args=_53e.advice.apply(this,args)||args;_53e=_53e.next;}if(_53d.around){var _53f=_53d.around.advice(this,args);}var _540=_53d.after;while(_540){_53f=_540.receiveArguments?_540.advice.apply(this,args)||_53f:_540.advice.call(this,_53f);_540=_540.next;}return _53f;}"/>
     Set DOCelement = IEdoc.getElementsByName("p1_deno").Item
     DOCelement.Value = TextBox1
 '<input name="localisation" tabIndex="0" class="dijitReset dijitInputInner" id="localisation" type="text" data-dojo-attach-point="textbox,focusNode" autocomplete="off" oninput="function(){var args=arguments;var _53e=_53d.before;while(_53e){args=_53e.advice.apply(this,args)||args;_53e=_53e.next;}if(_53d.around){var _53f=_53d.around.advice(this,args);}var _540=_53d.after;while(_540){_53f=_540.receiveArguments?_540.advice.apply(this,args)||_53f:_540.advice.call(this,_53f);_540=_540.next;}return _53f;}"/>
    'code postal
     Set DOCelement = IEdoc.getElementsByName("localisation").Item
     DOCelement.Value = TextBox4.Value
     DOCelement.Select
 
    'Recherche
     Set DOCelement = IEdoc.Forms(0)
     DOCelement.submit

Est-il possible également de récuperer ce fameux N° de SIRET ?

Merci à vous !

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Set DocElement = ieDoc.getElementsByName("boutonRechercherEntreprise_label").Item
    DocElement.Click

[jijie]

Merci Mercatog,

ça fonctionne parfaitement .

Maintenant, j'essaie de voir si j'arrive à récupérer le N° de SIRET, mais je pense avoir un souci, car internet explorer m'ouvre une boîte de dialogue "Avertissement de sécurité" et cela doit fausser mon code !