Récupération statistique Jockey/driver-Entraineur sur Geny

Bonjour,

Je souhaiterais récupérer les statistiques Jockey/Entraineur sur Geny.

C'est çà dire en sélectionnant une course comme la pièce jointe :

geny19072020

Récupérer les donnés statistiques PmU des Jockeys et Entraineur comme les photos jointes :

geny119072020 geny219072020 geny319072020

Dans le fichier joint, celui-ci récupère le tableau des donnés des chevaux, j'aimerai la même chose sur les statistique Jockey/entraineur sur la même page.

J'aurai ainsi 3 tableaux à la suite sur la page d'acceuil.

Voici le fichier en pièce jointe.

Merci pour votre aide.

Bien à vous

Patron28

154recupeny.xlsm (38.60 Ko)

Bonjour,

Je souhaiterais récupérer les statistiques Jockey/Entraineur sur Geny.

Merci pour votre aide

Patron28

Bonjour,

j'ai essayé ta macro, elle ne m'a donné aucun résultat !

peux-tu me dire où sont les informations dans quelles pages de geny ? je suis parti de http://www.geny.com/reunions-courses-pmu/_d2020-07-23? et ensuite ?

encore une fois, PowerQuery ne donne rien !

Bonjour,

Ensuite il faut sélectionner une course

genycourse

Ensuite il y a trois onglets que j'aimerai récupérer

genyonglet

Sur chaque onglet chevaux,Stat Jockey, stat Entraineurs il y a un tableau que j'aimerai récupérer

La macro fonctionne avec les courses du jour, petit souci avec les courses de lendemain et bouton demain.

Voilà

Merci pour la réponse

Bonjour

Je n ai pas reussi a modifier pour que cela fonctionne pour le lendemain

Bonjour,

Ensuite il faut sélectionner une course

Comment fait-on pour sélectionner la course ? le lien du titre de la course n'est pas cliquable.

Bonjour,

Sur le site il faut cliquer sur Partants/stats/Prono de la course que l'on veut étudier.

Une fois cliqué, la page Chevaux / Statistiques Jockey / Statistiques Entraîneurs s'ouvre.

Merci à toi

Bonne journée

Patron28

Bonjour,

Désolé, mais impossible aujourd'hui d'aller plus loin que ceci avec des méthodes classiques ...

Une solution pourrait être de simuler le clic avec une souris virtuelle et copier/coller le résultat, ce qui serait très aléatoire.

Solution tirée par les cheveux !

Fais d'abord une copie d'écran du site et repère avec paint par exemple la position des onglets statistiques jockeys et entraîneurs ... paramètres que tu mets dans l'onglet param.

Il ne faut toucher à rien de ton poste tant que la macro stat n'est pas revenue d'elle-même sur excel.

#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Sub stat()
Dim nav As Long, url$, ligne%, posX%, posY%, Img As Object, fenetre As String

fenetre = ThisWorkbook.Name & " - Excel"

ligne = Selection.Row
If Left(ActiveSheet.Cells(ligne, 1), 4) <> "http" Then
    MsgBox "Sélectionner une url !"
    Exit Sub
End If
url = ActiveSheet.Cells(ligne, 1).Value
MsgBox "Ne pas toucher à la souris ou au pad, le curseur va se positionner à l'endroit du menu déroulant de la page web !"
nav = ShellExecute(0, "open", url, 0, 0, 1)
Application.Wait (Now + TimeValue("00:00:05"))

For i = 2 To 3

    posX = Sheets("param").Cells(i, 2)
    posY = Sheets("param").Cells(i, 3)

    Set f = Sheets.Add(After:=Sheets(Sheets.Count))
    f.Name = Sheets("param").Cells(i, 1)
    Call SetCursorPos(posX, posY)
    mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, posX, posY, 0, 0
    SendKeys "{UP}"
    SendKeys "{ENTER}"
    Application.Wait (Now + TimeValue("00:00:05"))
    SendKeys "^a"
    Application.Wait (Now + TimeValue("00:00:01"))
    SendKeys "^c"
    Application.Wait (Now + TimeValue("00:00:03"))

    f.Cells(1, 1).Select
    f.Paste

    For ligne = f.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If f.Cells(ligne, 9) = "" Then f.Rows(ligne).Delete Shift:=xlUp
    Next
    For Each Img In f.Pictures
        Img.Delete
    Next
    With f.Cells.Font
        .Name = "Calibri"
        .Size = 11
    End With

Next

AppActivate fenetre
Application.Wait (Now + TimeValue("00:00:01"))

End Sub

C'est plus un exercice de style car cela ne fonctionne pas à tous les coups (pour certaines courses le positionnement en hauteur des onglets n'est pas le même).

En tous cas impossible de récupérer dans le code source les données appelées en ajax.

Bonjour Steelson,

Merci pour ton travail et le temps passé dessus.

Je vais les fichiers ce jour.

Je te tiens au courant

Patron 28

Rechercher des sujets similaires à "recuperation statistique jockey driver entraineur geny"