Bonjour,

J’utilise la librairie JsonConverter.bas pour parser des fichiers Json et elle marche très bien. Néanmoins, je n'arrive pas à développer une fonction permettant de prenant en paramètre le chemin d'une élément Json (path) et me retourner la valeur de cet élément.

en gr, je voudrias transformer la procédure suivante en fonction qui prend en paramètre le chemin "("listeFinancement")(1)("listePersonnePhysique")(1)("dateNaissance")" qui est dans le code.


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
21
22
23
24
25
26
27
28
29
30
Public Sub getValue()
Dim JsonString As String
Dim JsonObject As Object, http As Object
Dim item As Object
Dim i As Long
Dim ws As Worksheet
 
Dim fichier As String
' ActiveSheet.Cells.Clear
' With Application.FileDialog(msoFileDialogFilePicker)
' .Show
' On Error Resume Next
' fichier = .SelectedItems.item(1)
' On Error GoTo 0
' End With
' If fichier > "" Then [A1].CurrentRegion = fichier
 
' origine des informations
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", [A1], False
http.send
JsonString = http.responsetext
 
' decodage
Set ws = Worksheets("DDF")
Set JsonObject = JsonConverter.ParseJson(JsonString)
 
'MsgBox JsonObject("listeFinancement")(1)("listePersonnePhysique")(1)("dateNaissance")
 
End Sub
Merci beaucoup pour votre aide