Problème pour récuperer le text d'un ID sur internet après un click

Version imprimable

Bonjour ,

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

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

04/11/2016, 16h28
Marc-L

Bonjour,

effectivement VBA ne se trompe pas, l'ID recherché n'existe pas dans le code source de la page Web !

Vérifier donc l'orthographe de l'élément recherché (facile via l'outil d'inspection d'un navigateur) …

Pour tout post à venir commencer déjà par une présentation digne de ce nom,
claire & exhaustive donc et avec tenants et aboutissants (car peut-être piloter IE est inutile !),
afin de savoir précisément ce dont il est question ! Sans, aucune aide possible …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
04/11/2016, 20h47
patricktoulon

re

bonsoir
le id c'est plutôt " ctl00_cphContenuCentral_cbHippodrome" et en plus c'est une balise select donc ton click heu....

je te prescrit don 3 heures de buchage sur le tutoriel de qwazerty et de regarder tout particulièrement la partie qui gère les balises select (combobox)

et F12 est ton ami
07/11/2016, 23h31
BIBODI

Bonsoir,

au bout d'un week-end de recherche je n'arrive pas à trouver la solution .

je vais donc clôturer cette discussion.

si vous avez une dernière idée ?

Merci
Salutation
08/11/2016, 10h22
patricktoulon

re

re
Bonjour si tu avais suivi mes conseils tu devrais avoir compris ou était ton erreur

peut etre attendrais tu autre chose que nous n'ayons pas compris ???
08/11/2016, 10h59
BIBODI

Bonjour,

je ne vois pas mon erreur , je tourne en rond.

quand je clique sur le lien , les courses de la réunion s'affichent mais il m'est impossible de récupérer les infos, alors que sur la page elles sont visibles.

je me dit que mon instance reste sur le document HTML avant le Click.

Si vous voyez où je me trompe cela serait superbe .

Merci

re
sur ces pages un peu vieillottes se sont les gestions d'attente qui sont un calvere
et oui en effet a chaque changement dans les 3 (input ou combobox) qui sont en haut ,la page se remet a jour

il te faut donc attendre que le ready quitte le stade 4(ready_complete) et encore une fois attendre le stade 4

voici une demo
je met la date du jour dans le input1 je choisi "tous" dans le combo1 et je choisi le tri par date dans le 3 puis je clique

c'est une ébauche hein !!!!

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
 
Sub FrancegalHandbis()
'''''''''''''''''''''''''''''''''''''''''''
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate "http://www9.france-galop.com/fgweb/domaines/courses/courses_calendrier.aspx"
    IE.Visible = True
    Do: DoEvents: Loop Until IE.ReadyState = 4
    With IE.document
        .getelementbyid("ctl00_cphContenuCentral_Calendrier_txtDate").Value = Date 'on met la date que l'on veut
        .getelementbyid("ctl00_cphContenuCentral_cbHippodrome").selectedIndex = 0    ' liste de choix des hippodrome 0= tous les hippodromes
        .getelementbyid("ctl00_cphContenuCentral_cbClassement").selectedIndex = 0    '0=par date 1=par hippodrome
        .getelementbyid("ctl00_cphContenuCentral_btRechercher").Click    ' on click sur le bouton rechercher
        'on cible la table maintenant
        Do: DoEvents: Loop Until IE.ReadyState <> 4    ' la page va se remodifier alors on attend le depart du travail
        Do: DoEvents: Loop Until IE.ReadyState = 4    ' maintenant on attend que la page soit a nouveau fini de remplir avec les nouvelles données choisie avec les comboboxs
        Application.Wait (Now + TimeValue("0:00:02"))
        Set tablo = .getelementbyid("ctl00_cphContenuCentral_gvCalendrier")
        IE.Quit 'on ferme ie on en a plus besoins
        'copie du tablo dans le sheets
        With CreateObject("htmlfile")
            .body.innerhtml = tablo.outerhtml
            '*******************************************************************************************
            '                 FACULTATIF
            ' ici on va supprimer les iconne et les liens ,on transforme tout en texte pur
            For Each elem In .all
                If elem.tagname = "TD" Then elem.innerhtml = elem.innertext
            Next
            '*******************************************************************************************
            If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then
                Application.ScreenUpdating = False
                With Sheets(1): .Activate: .Columns("A:E").Clear: Cells(1, 1).Select: .Paste: .Columns("A:E").AutoFit: End With
                .parentWindow.clipboardData.clearData "Text"
            End If
        End With
 
    End With
End Sub

voila
A +

je ne t'ai pas proposé une requête avec l'object xmlhttp car l'argument du send est un véritable roman!!! et ca me gonfle

si davido passe par la et si on est dans un des ces bon jours il te proposera un exemple il adore les arguments de send a prolongation :ptdr:

mais il est vrai que c'est plus rapide avec cet Object

09/11/2016, 07h55
BIBODI

Bonjour,

J'ai essayé hier Soir , il apparait que le code est trop fragile , il bloque sur le 1er Do de temps en temps.
je me suis posé une question, est-il possible de créer une nouvel instance IE après le Click et d'affecter la nouvelle page Internet à cette instance.

Merci d'avance
13/11/2016, 12h41
patricktoulon

re

re

Citation:

J'ai essayé hier Soir , il apparait que le code est trop fragile , il bloque sur le 1er Do de temps en temps.

c'est n'importe quoi le code n'est pas fragile du tout si ca bloque au do/loop c'est que tu a un soucis avec ton installation tes librairie sont en vrac
chez moi cela fonctionne a 100%

voila
14/11/2016, 23h01
BIBODI

1 pièce(s) jointe(s)

Pièce jointe 224844
voici les librairies :