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
Partager