Discussion :

[jbonneval]

Bonjour,
J'avance petit à petit pour arriver à simuler le click sur les onglets, filtres de la page web ci dessous, tous ca depuis VBA:
Je n'arrive pas à activer la selection du filtre "Home"

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub anchors()
 
    Dim i As Long
    Dim IE As Object
    Dim IEDoc As Object
    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
    ' You can uncoment Next line To see form results
    IE.Visible = True 'tbc
 
    IE.navigate "https://www.whoscored.com/Regions/252/Tournaments/2/England-Premier-League" '13796
    ' Wait while IE loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
Set IEDoc = IE.document
 
 
'******  All TAG "<a " under ID
Dim htmlTabResultatFilter As IHTMLElementCollection
Set htmlTabResultatFilter = IEDoc.getElementById("tournament-filter-standings").getElementsByTagName("a")
 
Dim element As HTMLGenericElement
 
For Each element In htmlTabResultatFilter
    Debug.Print element.innerText
    If element.innerText = "Overall" Then element.className = "option"
    If element.innerText = "Home" Then element.className = "option selected"
Next
'Solution 1: KO par le changement de Style
IE.document.getElementById("standings-13796").setAttribute("Style") = "display: block;" 'display: block;
IE.document.getElementById("standings-13796").setAttribute("Style") = "display: none;" 'display: block;
IE.document.getElementById("standings-13796").setAttribute("Style") = "display: block;" 'display: block;
'IE.document.getElementById("forms-13796").setAttribute("Style") = "display: block;"
 
'Solution 2: KO par le refresh
   'IE.Refresh ca ne march pas car ca me remet les filtres par defaut
'Solution 3: KO par le script
    IE.document.parentWindow.execScript "submitTransForm()", "JavaScript" 'KO, message d'erreur raised
    Set IE = Nothing
 
End Sub

Quelqu'un a t-il une idée?

Merci d'avance
Jerome

[jbonneval]

Bonsoir,

J'essaye en tâtonnant j'ai cru avoir une par le biais des lists, mais ce bout de code ne marche pas.
J'ai essayé avec différents ID aussi.
J'y comprends rien

Code :

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

1
2
3
'Listbox selected option => failed
IE.document.getElementById("tournament-filter-standings").selectedIndex = 1
IE.document.getElementById("tournament-filter-standings").FireEvent ("onchange")

Si quelqu'un a un ou deux indices se sera avec plaisir

Bonne nuit
Jerome

[mercatog]

Code :

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

1
2
3
4
5
6
For Each Element In htmlTabResultatFilter
    If Element.innerText = "Home" Then
        Element.Click
        Exit For
    End If
Next

[jbonneval]

Bonjour mercatog,

Milles merci pour ton retour!
La solution est si simple que je me demande comment j'ai fait pour passer à coté!
Je passe tellement de temps à lire/chercher les solutions sur les forums, que je suis parti sur des solutions à coté de la plaque
Le truc c'est que le HTML, j'en ai jamais fait alors le piloter depuis VBA ca rend pas la tache plus simple
Mais heureusement Qwazerty à fait une doc superbe "Interaction avec internet Explorer via VBA Excel", Merci à lui aussi également

Encore Merci Mercatog