Discussion :

[skall93]

Bonjour à tous,

J'ai lu un sujet sur la récupération des données dans les jsons et j'ai testé le fichier Tiercé V6 partagé par patricktoulon que je remercie, seulement il n'affiche pas toutes les courses du jour, pour la journée d'hier 6 courses affichées :

https://www.casimages.com/i/180713124007941358.png.html

On voit que la course 2 Prix de l'Ile Seguin ni la course 5 Prix de l'Ile de la Jatte de la réunion ParisLongchamp (R1) n'apparaissent pas dans la liste, pour ce soir il y a 3 courses pour la réunion 1 alors qu'elle comporte 8 courses, le fichier Tiercé V6 correspond à ce que je souhaiterais pouvoir récupérer comme données si quelqu'un a la solution pour lister et extraire toutes les courses et les stats jockeys entraineurs je le remercie par avance.

Bonne soirée
.

[patricktoulon]

Bonsoir oui je supose que tu l'a pris dans une discussion avec sebphyto mais elle date et le site a changé mesurément depuis il est fort possible qu'il y est des erreurs maintenant

c'est le genre de programe qu'il faut sans cesse mettre a jour par rapport au site
est tu sur de vouloir aller jusqu'au bout ?

[skall93]

Bonsoir patricktoulon

Merci pour ta réponse rapide et je ne veux pas non plus que tu perdes ton temps, je suis plutôt à chercher jusqu’à trouvé mais là cela fait plusieurs jours que je me suis penché sur la récupération dans les jsons. Cela va plus vite à exporter et j'aime bien car c'est plutôt complet comme données récupérées. Je me suis inscrit depuis longtemps et je n'ai pas oser m'y mettre, mais là j'ai vraiment une envie de pouvoir y arrivé, en attendant je récupère manuellement le lien de la course manquante en copier/coller et je double clique sur le prix de la course après avoir ajouter le numéro de course dans les liens jsons cela fonctionne bien mais si je referme le fichier et que je le ré-ouvre en activant les macros tout s'efface et obligé de recommencer ou de faire course par course, mais j'y arrive ce que je ne m'explique pas c'est qu'il y a des courses qui ne sont pas dans la liste, c'est bizarre.

[patricktoulon]

re
non c'est pas bizare c'est tout simplement que le code source des page geny a changé et certains ne sont pas pris en compte u
une virgule ,un point, une parenthese different d'avant suffit a foutre en l'air la mecanique

ce qu'il faut retenir c'est la mecanique qui reste bonne pour geny mais il faut tout recrire le programe avec les nouvelles configuration des pages geny et donc re analyser le code source des pages geny concernées

[skall93]

Je vois, je vais donc analysé les codes sources des pages avec F12 et voir là ou cela bloque, je te remercie encore pour le temps que tu as pris à répondre.
Cordialement

[patricktoulon]

allez tiens j'ai trouvé pour toi ,si tu gagnes tu pensera a moi
voila tu les a tous les lien de course la

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
Function recupcodesoource(url)
Dim ReQ As Object
Set ReQ = CreateObject("microsoft.xmlhttp")
With ReQ
.Open "post", url, False
.send
recupcodesoource = .responsetext
End With
End Function
Sub test()
With CreateObject("htmlfile")
url = "http://www.geny.com/reunions-courses-pmu" 'pour les reunions du jour
'url = "http://www.geny.com/reunions-courses-pmu?date=2018-07-14" 'pour une date precise
.body.innerhtml = recupcodesoource(url)
Set meslien = .getelementsbytagname("a")
For Each elem In meslien
If elem.classname = "btnMulti" Or elem.classname = " btnCourse" And elem.innertext Like "*partants/stats/prono*" Then Debug.Print Replace(elem.href, "about:", "http://www.geny.com")
Next
End With
End Sub

ca va dans la fenetre d'execution je te laisse adapter a ton tableau