Discussion :

[Tchicken]

Bonjour à tous,

je chargé un fichier JSon où "Courses" correspond au chemin d'accès de mon fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

JsonCourse = JsonConvert.DeserializeObject(File.ReadAllText(Courses))

et je souhaiterai parcourir cet objet pour retrouver mes petits ...

en VBA je sais faire avec JsonConverter, mais en VB je sèche.

VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set JsonCheval = JsonConverter.ParseJson(ligne)
 
For Numero = 1 to Partants
PartantOuiNon = JsonCheval("participants")(Numero)("statut")
CotePMU = CSng(JsonCheval("participants")(Numero)("dernierRapportDirect")("rapport"))
Next Numero

Je mets le fichier JSon zippé que je souhaite interroger en pièce jointe.

D'avance merci de votre aide.
Tchicken.