lire fichier json à partir de vba

Hey tout le monde :)

Jai besoin de vous :) ! je vous explique, j'aimerais lire un fichier json sur ssis avec du code vba et insérer le contenu dans une table ! c'est assez abstrait pour moi donc si quelqu'un peut m'éclairer sur les différentes démarches et si vous pouviez m'éclairer sur le code :) ce serait sympa :)

je vous remercie


Vanesss :)

Je pense que ceci devrait t'aider :
https://github.com/VBA-tools/VBA-JSON


Malheureusement c'est toute l'aide que je pourrais apporter par rapport à ça :mouarf:

Bonne chance

merci AL__22 j'vais trouvé ces sites j'avoue que ça m'aide mais toujours un pe perdue .. :(

Vaness ;)

Pour ma curiosité personnelle, comment est structuré le fichier json? une ptit extrait sera le bienvenu

re
Bonjour
bien en fait tout dépend de ce que tu veut récupérer en en faire

les fichier JSON sont des fichier texte
donc tout les constantes et fonctions (même natives VBA) sont a ta disposition

il est certain que de part sa régularité répétitive dans sa syntaxe on peut jouer avec ses fonctions (split,instr,mid,etc.....)

il me semble aussi que le membre "Marc-L" avait fait une démo pour un autre demandeur et utilisait l'object script dans le code vba
bref c'est un sujet qui a été évoqué plusieurs fois
le site a un moteur de recherche tu pourrais commencer par t 'en servir

re
exemple
prend ceci: et enregistre le dans une fichier JSON avec le bloknote(notpad)
jel'ai raccourci pour l'exemple

Citation:

---

[{"id":"1099-99","name":"Laboratoire de Hamm"},{"id":"1143-99","name":"Laboratoire de Zakk"},{"id":"1102-99","name":"Laboratoire de Lesh"},{"id":"1099-100","name":"Ferme Bauer"},{"id":"1143-100","name":"Ferme Gee"},{"id":"1102-100","name":"Ferme Barrett"},{"id":"1099-101","name":"Campement de McLain"},{"id":"1143-101","name":"Campement d'Habib"},{"id":"1102-101","name":"Campement de Patrick"},{"id":"1099-102","name":"Académie de O'del"},{"id":"1143-102","name":"Académie de Kay'li"},{"id":"1102-102","name":"Académie de Y'lan"},{"id":"1099-104","name":"Nécropole éternelle"},{"id":"1143-104","name":"Nécropole impérissable"},{"id":"1102-104","name":"Nécropole immortelle"},{"id":"1099-105","name":"Dépôt Vilebrequin"},{"id":"1143-105","name":"Dépôt Engrenage"},{"id":"1102-105","name":"Dépôt Bougie"},{"id":"1099-106","name":"Crypte embrasée"},{"id":"1143-106","name":"Crypte torride"},{"id":"1102-106","name":"Crypte cuisante"}]
re

---

voici une petite fonction qui va récupérer le text en mémoire avec open for input

Code:

---

1 2 3 4 5 6 7 8 9

'fonction de récupération du code de tout le fichier Function recuptext(fichier) Dim laChaine As String, x x = FreeFile Open fichier For Input As #x laChaine = Input(LOF(x), #x) Close #x recuptext = laChaine End Function

---

maintenant on va faire la sub qui va se servir de cette fonction puis mettre ce texte au format CSV( séparateur virgule)
le jeux consiste dans ce cas présent de structure a faire des replace sur le texte
perso je préfère les replace car il ne génère pas de message d'erreurs en d'erreur justement
tandis que qua,nd on utilise les split ou instr on est obligé de faire des multiple conditions "IF" et c'est pas toujours jojo

pour concevoir ton mode il te suffit d'ouvrir ton json avec bloknote et de placer un retour de ligne a la place des caractères récurrents en l'occurrence ici c'est "},{" qui te permettent de séparer les élément
chaque élément contient un ID et un name le reste n'est que du replace sur les caractères indésirables

je le répète c'est un exemple simple



voila la sub

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() Dim code As String, fichier As String fichier = "chemin complet de ton fichier JSON" code = recuptext(fichier) Debug.Print code 'regarde dans ta fenetre d'executionde l'editeur VBE code = Mid(Replace(code, "},{", vbCrLf), 3, Len(code)) code = Replace(code, """name"":""", "") code = Replace(code, """id"":""", "") code = Replace(code, """", "") Debug.Print code 'et regarde encore maintenant dans ta fenêtre d'exécution de l'éditeur VBE tableau = Split(code, vbCrLf)'maintenant que l'on a des lignes propres on coupe le code complet par les saut de ligne 'on obtient ainsi un tableau (array)1 dimension et chaque élément du tableau contient une ligne   With Sheets(1) .Cells(1, 1).Resize(UBound(tableau, 1)) = Application.Transpose(tableau)'on colle ce tableau dans la colonne A d'un sheets ' maintenant on applique textTocolumns pour bien séparer les données dans leur colonnes respective .Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Space:=False End With End Sub

---

voila comment il est dans le sheets
Pièce jointe 226275

pour quoi je t'oriente vers ce procédé??
et bien par que les JSON peuvent avoir une syntaxe différentes en fonction des sites
même si il y des récurrence dans les modèles, ils sont pas tous identiquement conçu en terme de syntaxe

voila voila

Bonjour, bonjour !

Citation:

---

Envoyé par vanessa75

j'avoue que ça m'aide mais toujours un pe perdue ..

---

Nous le sommes encore plus car comme il existe différentes structures de données json
donc sans avoir une idée précise du fichier source ni du résultat escompté nous n'irons pas plus loin
et vu toute la documentation déjà disponible sur le Net …

Voilà, voilà !

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …