Manipuler internet explorer
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:
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 !
