Discussion :

[kevin254kl]

Bonjour à tous,

Pourriez vous m'aider

J'ai vue qu'il y a http://www.ediy.co.nz/vbjson-json-pa...xidc55680.html.
Que dois je installer et comment je peux récupérer ma data ? car je n'ai pas vraiment trouvé d'exemple. J'ai vue aussi qu'il y a plusieurs librairies?

Merci de votre aide.

[marot_r]

Bonjour.

Apparement c'est pour VB6 et non VBA.
VB6 et VBA sont des langages "cousins" et même si leur syntaxe est assez semblable, ils sont suffisamment différents pour être incompatibles.
Si tu as accès au code source, il est peut-être possible d'adapter le code à VBA.

A+

[kevin254kl]

Merci pour la précision, du coup ,

j'ai trouvé ça https://github.com/VBA-tools/VBA-JSON cela fonctionne. Par contre on peut parcourir le json, j'ai l'habitude de travailler avec du xml?

Merci.

[marot_r]

Bonjour.

Les données lues sont stockées dans un objet de type Dictionary (Dim Parsed As Dictionary).

Donc tu peux parcourir les éléments 1 par 1 en avant (et je pense dans l'ordre alphabétique des noms), ou alors allez chercher un élément par son "nom".

Ici une explication de leurs usages.

Using the Dictionary Class in VBA
https://www.experts-exchange.com/art...ss-in-VBA.html

L'exemple est pour Excel mais à part l'écriture des résultats dans des cellules (ce qui n'existe pas en Access) le code est assez semblable.

Désolé je n'en ai pas trouvé pour Access.

A+

[kevin254kl]

Merci,

Par exemple pour ci dessous si je fais json("test")(1)("attribut1") j'obtiens bien valeur1. Par contre pour de très gros json comment je fais pour récupérer les attributs
dans un for each? je fais le for each sur la valeur test?

Code :

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

1
2
3
4
5
6
7
8
9
10
{
    "test": [
        {
            "attribut1": "valeur1",
            "attribut2": "[{\"valeur\":2}]"
        },
        {
            "attribut1": "valeur1"
        }
}

[marot_r]

Bonjour.

En fait je n'en ai aucune idée.
Cela dépend de comment les données sont stockées dans le dictionnaire.

Ici un exemple de code qui t'affiche la clef et la valeur :

Code :

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

1
2
3
4
5
6
7
8
    Dim d as dictionary
    'ici du code pour remplir le dictionnaire
 
    dim i as long
 
    For i = 0 To d.Count - 1
        Debug.Print d.items()(i), d.keys()(i)
    Next i

Et un exemple avec un for each:

Code :

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

1
2
3
4
5
Dim K As Variant
 
For Each K In d.Keys
    debug.print "Key: " & K , "Value: " & d.Item(K)
Next

Cela devrait te permettre de voir ce que contient ton dictionnaire.

A+

[kevin254kl]

Merci,

Code :

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

1
2
3
4
5
6
7
8
9
 
    Set jsontest = JsonConverter.ParseJson(json)
 
 
    Dim i As Long
 
    For i = 1 To jsontest("test").Count
        Debug.Print jsontest("test")(i)("id")
    Next i

Je vais utiliser que le for du coup.

Merci de votre aide.