Récuperation Json

bonjour,

J'ai essayé a partir d 'exemples sur le forum de récupérer les JSON d'une page web (fichier joint)

J'arrive bien à récupérer les infos dans chaque "onglet" et "sous onglet" par contre quand je vais sous l'onglet "rapports", je cherche a récupérer l'info "dividende", ici le problème c'est qu'il y en a 3 avec le même nom et je souhaiterai récupérer les 3 , hors je n'arrive qu'à récupérer le dernier...290 test1

je suis novice en vba, merci de votre aide

cordialement

dom

33test-dom.xlsm (23.34 Ko)

Bonjour,

ton incrément était juste mal placé

            For Each Drd In Cheval.rapports
                .Cells(i, 3).Value = Drd.libelle
                .Cells(i, 4).Value = Drd.dividende
                .Cells(i, 5).Value = Drd.dividendePourUnEuro
                .Cells(i, 6).Value = Drd.combinaison
                .Cells(i, 7).Value = Drd.nombreGagnants
                .Cells(i, 8).Value = Drd.dividendePourUneMiseDeBase
                .Cells(i, 9).Value = Drd.dividendeUnite
                i = i + 1
            Next

Bonjour,

Une alternative avec Power Query.

Cdlt.

19test-dom.xlsm (30.63 Ko)

merci pour la qualité et la rapidité de vos réponses!!!

cordialement

dom

si ok, n'oublie pas de clore ce fil de discussion en cliquant sur V

Dommage de ne pas pouvoir profiter de PowerQuery sur ta version trop ancienne !

Rechercher des sujets similaires à "recuperation json"