Discussion :

[phil2031]

Bonjour à tous.
Je me suis inspiré du tuto de "Qwazerty" et de macro sur le forum

je cherche a extraire les statistiques des joueurs NBA.

Sur le site "https://watch.nba.com/game/20171017/BOSCLE?left=true" ma macro bascule bien sur "Feuille de match" mais ne bascule pas sur "BOS" ( par défault les stats des joueurs est sur "CLE"

Merci d'avance pour votre aide

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
43
44
45
46
47
48
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim Coll_Liens As IHTMLElementCollection, Lien As Variant, URL As String
Sub a_test()
 
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
 
    'Vider_Presse_Papier
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
 
    URL = "https://watch.nba.com/game/20171017/BOSCLE?left=true"
 
    IE.Navigate URL
    IE.Visible = True
 
    'tempo fin chargement page internet
    WaitIE IE
 
    'bascule sur Feuille de match
    Set IEDoc = IE.Document
    Set Coll_Liens = IEDoc.getElementsByTagName("span")
        For Each Lien In Coll_Liens
            If Lien.innerText = "Feuille de match" Then Lien.Click: Exit For
        Next
 
    WaitIE IE
    'bascule sur l'équipe BOS
    Set IEDoc = IE.Document
    Set Coll_Liens = IEDoc.getElementsByTagName("div")
        For Each Lien In Coll_Liens
            If Lien.innerText = "BOS" Then Lien.Click: Exit For
        Next
 
 
 End Sub
 Sub WaitIE(IE As InternetExplorer)
Do While IE.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Loop
End Sub

[/CODE]