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
| Sub piloterPageWebV02()
'activer les références
'Microsoft HTML Objects Library
'et
'Microsoft Internet Controls
Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.google.fr/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
Helem.Item(1).innerText = "developpez.com"
'simule le clic sur le bouton "Recherche Google"
Helem(2).Click
End Sub |