Sub piloterPageWeb() 'michelxld le 11.05.2005 'pour le forum sur http://www.excel-downloads.com [ Lien ] ' 'activate Microsoft HTML Objects Library reference 'activate Microsoft Internet Controls reference Dim i As Integer Dim IE As InternetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection Dim Monbouton As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.navigate "http://www.oscaro.com/" Do While IE.Busy 'IE.readyState = READYSTATE_COMPLETE DoEvents Loop Set maPageHtml = IE.document Set Helem = maPageHtml.getElementsByTagName("input") For i = 0 To Helem.Length - 1 If Helem(i).getAttribute("name") "toFind" Then Helem(i).Value "La Reference" If Helem(i).getAttribute("name") "submit" Then Set Monbouton Helem(i) Next Monbouton.Click '...
Sub piloterPageWeb() 'michelxld le 11.05.2005 'pour le forum sur http://www.excel-downloads.com [ Lien ] ' 'activate Microsoft HTML Objects Library reference 'activate Microsoft Internet Controls reference Dim i As Integer Dim IE As InternetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection Dim Monbouton As Object, ElementReady As Byte Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.navigate "http://www.oscaro.com/" Do While IE.Busy 'IE.readyState = READYSTATE_COMPLETE DoEvents Loop Set maPageHtml = IE.document Set Helem = maPageHtml.getElementsByTagName("input") For i = 0 To Helem.Length - 1 select case Helem(i).getAttribute("name") case "toFind" Helem(i).Value = "La Reference" ElementReady = ElementReady + 1 case "submit" Set Monbouton = Helem(i) ElementReady = ElementReady + 1 End select If ElementReady = 2 Then Exit For Next Monbouton.Click
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question