ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 14 juil. 2011 à 14:52
si toto est le nom du bouton à cliquer ===>>
Webbrowser1.Document.toto.submit.click
Mais on s'y prend en général de manière plus "élastique" (de sorte à ne pas chaque fois répéter du code !
Exemple :
Private Sub ClickButton(bInnerTxt As String)
Dim HTML As HTMLDocument
Dim BTN As HTMLButtonElement
Set HTML = WebBrowser1.Document
For Each BTN In HTML.getElementsByTagName("BUTTON")
If InStr(1, BTN.innerText, bInnerTxt, vbTextCompare) Then
BTN.Click
Exit Sub
End If
Next
End Sub
Private Sub Command1_Click()
ClickButton "toto"
End Sub
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP