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 : 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
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