Discussion :

[alberto314]

Bonjour à tous,

Je cherche à cocher une checkbox en passant par un webbrowser.

Le code de la checkbox en question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<input type="checkbox" name="checkall-toggle" value="" title="Tout cocher" onclick="checkAll(this)" />

Mon code qui ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
     Dim Checkbox = wb.Document.GetElementsByTagName("input")
            For Each separe As HtmlElement In Checkbox
                If separe.GetAttribute("name") = "checkall-toggle" Then
                    If separe.GetAttribute("type") = "checkbox" Then
                        separe.InvokeMember("click")
                        Call WaitForPageLoad()
                        Exit For
                    End If
                End If
            Next

Auriez-vous un petit conseil à me donner pour me sortir de cette histoire ?

Merci et bonne journée !

[alberto314]

Si ça peut servir à quelqu'un, voici un code qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For Each input As HtmlElement In wb.Document.GetElementsByTagName("input")
                    If input.GetAttribute("name") = "checkall-toggle" Then
                        input.InvokeMember("click")
                        Exit For
                    End If
                Next