Discussion :

[vanessa75]

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

[Al__22]

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

Bonne chance

[vanessa75]

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

Vaness

[mercatog]

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

[Marc-L]

Bonjour, bonjour !

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, …

[patricktoulon]

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

[patricktoulon]

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

[{"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 :

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

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 :

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
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


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