Bonjour ,

je souhaite récupérer les courses du type handicape sur le site France galop.
j'ai donc le code suivant :

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
Sub FrancegalHandbis()
'''''''''''''''''''''''''''''''''''''''''''
Dim IE As InternetExplorer
 
 
Set IE = CreateObject("InternetExplorer.Application")
 
 
  '''''''''''''''''''''''''''''piloter internet
   IE.Navigate "http://www9.france-galop.com/fgweb/domaines/courses/courses_calendrier.aspx"
   IE.Visible = True
Do
    DoEvents
   If IE.ReadyState = READYSTATE_COMPLETE And Not IE.Busy Then Exit Do
 
Loop
 
   '''''''''''''''''''''''''''''fin de pilotage
Set IEdoc = IE.Document
 
 
 IEdoc.getElementbyid("ctl00_cphContenuCentral_gvCalendrier_ctl02_lbHippo").Click '=> ici je clique sur l'ID de la Réunion pour obtenir les courses
 
 
Do
 
   If IE.ReadyState = READYSTATE_COMPLETE And Not IE.Busy Then Exit Do '=> cette partie du programme ne sert pas car pour IE tout est OK
    DoEvents
 
Loop
 
 
 
Application.Wait Now + TimeValue("0:00:05") 'le temps n'a pas d'importance,  j'ai essayé plusieurs minutes et j'obtiens toujours le message d'erreur en fin de programme
 
 
MsgBox IE.Document.getElementbyid("ctl00_cphContenuCentral_gvReunion").innertext  '=>ici j'ai un message d'erreur car pour le programme il n'y a pas de document avec l'ID "ctl00_cphContenuCentral_gvReunion" alors qu'il est visible sur le page internet 
 
 End Sub

j'ai cherché sur le tuto de qwazerty ,mais sans succès.

Merci par avance pour vos réponses