Simuler le click sur un bouton dans une page Internet

Question

Bonjour, 
 
 
J'essaie de simuler l'action de clicker sur le bouton 'RECHERCHER' dans une page internet. Voici le code source. 

Sub test()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim Bouton As HTMLInputElement
Dim Nclub As HTMLInputElement

'Ouvre la page Web
IE.navigate "http://www.fftt.com/site/competition/classement/classement-departemental"
IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE: Loop
Set IEDoc = IE.document

' on renseigne le n° de club recherché
Set Nclub = IEDoc.all("nclub")
Nclub.Value = "04440056"

'On pointe notre bouton 'RECHERCHE' par son Id
Set Bouton = IEDoc.all("input-search-small")
' On clicke sur le bouton 'RECHERCHE'
Bouton.Click

Do Until IE.readyState = READYSTATE_COMPLETE: Loop
End Sub


Je m'attends a ce que l'instruction Bouton.click me charge une liste de joueur mais ca ne fait rien. Si quelqu'un a une idée ?

Merci d'avance.

jordane45 · Answer

Bonjour,

D'après le code source du site en question.... l'objet sur lequel tu pointes est juste un input de type text ... pas un "bouton".
Le bouton serait plutôt la div  dont l'id est : bt-search-small

grosminet44 · Answer

Merci Jordane45. Effectivement, en utilisant bt-search-small, le click est bien pris en compte mais j'enchaine immediatement sur un écran presque vide. J'ai du faire une autre betise. En tout cas merci, ca me permets d'avancer dans la résolution de mon problème.

Simuler le click sur un bouton dans une page Internet

2 réponses

Votre réponse

Discussions similaires