j' arrive a charger la page dans mon projet et à donner le focus à la liste déroulante à coté du textbox trouver un cote source.
j'aimerai cliquer dans la cinquieme option de cette liste
j'ai essayé ce qui suit mais sans succès
Private WithEvents moInputSearch11 As HTMLSelectElement
Dim oDoc1 As HTMLDocument
Set oDoc1 = OUVERTURE.WebBrowser1.Document
Set moInputSearch11 = oDoc1.getElementById("m_UCTabsHome1_DropSearch")
moInputSearch11.Focus
If moInputSearch11.getAttribute("value") = "blog" Then
moInputSearch11.Click
End If
Dim curElement As IHTMLElement
For Each curElement In moInputSearch11
If curElement.getAttribute("value") = "blog" Then
curElement.Click 'or may be some other action that needs to be done here
