Lien Json Pretty a récupérer
Bonjour
Voilà j'aimerais récupérer les données Json de ce lien en excel vba
Le lien récupère les 5 dernières performances des chevaux.
La date la réunion la course peuvent être changées.
Je suis bloqué dans certaines boucles.
Puis-je avoir une aide pour le faire ?
Merci pour la réponse
Bonjour
Je ne réponds pas aux MP non sollicités.
Il te faut utiliser PowerQuery et non VBA
Les dates sont bizarres : ça se lit comment ?
Bonjour,
MP ? , Sur une autre adresse alors ?
J'ai fait des essais avec PowerQuery mais je n'arrive pas au même résultat.
Serait-il possible de séquencer les différentes étapes pour arriver a votre tableau.
Juste pour information novice en Powerquery.
Merci pour la réponse.
Bnjour
MP ? , Sur une autre adresse alors ?J'ai fait des essais avec PowerQuery mais je n'arrive pas au même résultat.
Effectivement, après vérification, sur un autre forum
Serait-il possible de séquencer les différentes étapes pour arriver a votre tableau.
Juste pour information novice en Powerquery.
Oui mais j'aurais aimé une réponse à ma question...
Par ailleurs pour chaque résulat on a la liste de tous les autres chevaux : faut-il garder ou pas ?
Bonjour,
La seul information que j'ai sur la date c'est qu'elle doit-être divisée par 1000/24/60/60. Après dans excel voir comment la transformer!
oui, il faudrait garde la liste des autres chevaux.
Merci pour l'aide
RE
J'avais tenté ce genre de calculs mais cela donnait des dates soit en 1952 soit en 2104...
C-joint le fichier avec 2 requêtes :
- CoursesN1 extrait les courses de chaque cheval
- Pretty détaille en + les autres participants
Les étapes sont listées à droite et le détail s'affiche dans la barre de formule et en cliquant sur le petit rouage de la ligne d'étape
Il sera peut-être nécessaire de valider la connexion au site
Bonjour à tous,
Pour les dates ?
Cdlt.
Merci pour le fichier et les explications du temps.
Par contre, je ne vois pas le détail a droite sur le fichier !
Pour changer la date, la réunion, la course comment faire ?
Merci pour la réponse
RE
A droite dans l'interface PowerQuery, pa dans celle d'Excel
(Données, Obtenir des données, lancer PowerQuery)
Cela lit les données de ton lien : tu ne peux a priori modifier le contenu
Ou bien tu parles de récupérer d'autres liens correspondant à d'autres sources ?
Il n'y a pas de ligne d'arrivée ici donc prend le temps d'expliquer clairement ce qu tu veux obtenir...
Bonjour
Comme expliqué plus haut, la date; la réunion, la Course peuvent changer.
https://online.turfinfo.api.pmu.fr/rest/client/61/programme/04042022/R6/C4/performances-detaillees/pretty exemple donné
Pour ce jour :
Je dois pouvoir changer la date, La réunion R ( 1,2,3,4,5,etc ), La Course C ( 1,2,3,4,5,6,etc) pour avoir les informations du jour, de la réunion choisie ou de la course
choisie.
C'est pour cela que j'avais parlé de Vba sur excel pour récupérer les informations du Json.
Merci pour la réponse.
Bonjour
Modifier les paramètres dans les cellules jaunes puis Données, Actualiser Tout
Bonjour,
Merci pour le fichier mais quand je le lance j'ai un message d'erreur comme ceci :
Serait-il possible de reprendre le fichier et partir sur une programmation vba dans excel comme l'exemple ci-dessous :
Récupération des cotes Trio:
Sub Feuil1()
Dim ScriptControl As Object, PMU As Object
Dim Ecurie As Object, Cheval As Object, Rb As Object, Gp As Object
Dim Site As String, i As Long
Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
ScriptControl.Language = "JScript"
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Site, False
.send
Set PMU = ScriptControl.Eval("(" + .responseText + ")")
.abort
End With
Range("C15").CurrentRegion.Offset(1, 0).ClearContents
i = 16
Set Ecurie = PMU.listeCitations
On Error Resume Next
For Each Cheval In Ecurie
With ActiveSheet
For Each Rb In Cheval.participants
.Cells(i, 3).Value = Rb.numPmu
j = 0
For Each Gp In Rb.citationsConsolidees
.Cells(i, 4 + j).Value = Gp.ratio / 100
j = j + 1
Next
i = i + 1
Next
End With
Next Cheval
Set Rb = Nothing
Set Gp = Nothing
Set Ecurie = Nothing
Set PMU = Nothing
Set ScriptControl = Nothing
End Sub
Bonjour
Quand on poste une image on s'assure qu'elle soit lisible...
Lancer PowerQuery (Données, Obtenir des données, Lancer PowerQuery), puis Fichier, Options et paramètres, Options de requête, partie GLOBAL : Confidentialité, Toujours ignorer les paramètres de niveau de confidentialité
Cela supprimera le message d'erreur.
A noter que cette option ne sert à rien dans la quasi totalité des cas et limite les possibilités, d'où son décochage.
Merci pour les remarques, c'est sympa à lire !!
Pas trop satisfait avec PowerQuery, je passe a autre chose.
Excel VBA me satisferait plus et serait plus rapide.