Texte d'une page Web visible après un cliques mais qui n'est pas visible dans code source
Bonjour à tous,
je souhaite récupérer les performances d'un cheval sur une page web en VBA (prenons l’exemple de "http://www.france-galop.com/fr/cheval/d0RxaXY2M2FSb1pBSG1GeDQrZWJUZz09")
après avoir simulé un click en VBA sur "Plus" , des performances supplémentaires apparaissent mais elles ne sont pas visibles dans le code source.
comment je peux y accéder en VBA.
j'ajoute le code
Code:
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
| Dim IE As InternetExplorer
Dim IEDoc
Dim i, j
''''''''''''''''''''''''''''' pilotage INTERNET
Dim Reunion() As Variant
Dim lTimer
Dim pTimeOut
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://www.france-galop.com/fr/cheval/d0RxaXY2M2FSb1pBSG1GeDQrZWJUZz09"
IE.Visible = True
lTimer = Timer
pTimeOut = 10
Do
DoEvents
If IE.ReadyState = READYSTATE_COMPLETE And Not IE.Busy Then Exit Do
If pTimeOut > 0 And Timer - lTimer > pTimeOut Then
Exit Do
End If
Loop
Set IEDoc = IE.Document
'''''''''''''''''''''''''''''fin de pilotage
IEDoc.getElementsByClassName("sk-fading-circle").Item(3).Click
Application.Wait Time + TimeSerial(0, 0, 5)
Do
DoEvents
If IE.ReadyState = READYSTATE_COMPLETE And Not IE.Busy Then Exit Do
If pTimeOut > 0 And Timer - lTimer > pTimeOut Then
Exit Do
End If
Loop
Set IEDoc = IE.Document
'et à ce stade le document n'affiche pas les nouvelles lignes dans les performances |
Merci par avance
