Un JSON par cellule d'une colonne

Bonsoir,

J'ai créé une colonne avec une cellule JSON.
Il y a environ 150000 lignes et donc autant de cellules avec une chaine JSON.
Je cherche une solution via une macro pour générer un fichier JSON avec le contenant de la cellule. 1 cellule de la colonne = 1 fichier JSON.

Pouvez-vous m'aider svp ?

Merci

Bonjour,

J'ai un petit doute sur la compréhension du problème.
Si j'ai bien compris vous souhaiteriez rapatrier un Json de 150M lignes dans une seule cellule d'une feuille (Disons A1)

Il me semble que le maximum de caractère dans une cellule tourne près des 30M caractères, donc exepter fusionner des cellules, ce qui est toujours déconseillé, pour augmenter le nombre max de caractère, je dirais impossible.

Mais peut-être une explication sur la finalité de cet import pourrait nous permettre de vous aiguiller vers d'autres possibilités.

Bav,

Bonjour,

Je pense plutôt que ce qui est demandé c'est de pouvoir créer des fichiers texte reprenant le contenu de chaque cellule d'une plage.

Cellule A1 dans fichier 1
Cellule A2 dans fichier 2
...

Bien ça ?

Salut.

Ce serait intéressant de montrer ce qu'il y a dans chaque cellule. Un json étant structuré, il sera utile de savoir si la cellule contient le json en entier ou s'il faut le structurer. S'il faut le structurer, il faut donner la structure. Quel nom doit être donné à chaque fichier? Il y a trop peu d'éléments dans le problème initial pour pouvoir apporter une réponse sensée.

Cela dit, je ne comprends pas l'utilité de créer 150 000 json. Créer un json de 150 000 éléments est dans l'ordre des choses, mais créer 150 000 fichiers json, j'ai vraiment de très gros doutes.


Quel que soit le fichier texte produit, je l'écris avec ADODB.Stream via cette procédure générique:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function WriteFile(Name As String, Content As String, Optional Overwrite As Boolean) As Long Dim s As Object   On Error GoTo Catch   Set s = CreateObject("ADODB.Stream") s.Charset = "utf-8" s.Open s.WriteText Content s.SaveToFile Name, IIf(Overwrite, 2, 1) s.Close   Catch: WriteFile = Err.Number End Function

---

Dès lors, si le problème est réellement de parcourir les cellules et de créer autant de fichiers que de cellules, on pourrait procéder comme suit sur base du tableau structuré suivant et créer les json en leur donnant comme nom le code du contact, pour l'exemple:

Pièce jointe 587361

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub CreateFiles() Dim r As Range Dim Path As String Dim i As Long   Path = "c:\data\temp\json\" For i = 1 To Range("tableau1").Rows.Count If WriteFile(Path & Range("tableau1[id]")(i).Value & ".json", Range("tableau1[json]")(i).Value, True) <> 0 Then MsgBox "Le fichier n'a pas été créé" End If Next End Sub

---

Dans la mesure où il faudrait compiler les 150000 lignes dans le même fichier, et sans connaître la structure souhaitée, on pourrait renvoyer toutes les lignes dans un tableau json

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub CreateFile() Dim Message As String Dim r As Range   Message = "[" & vbCr For Each r In Range("tableau1[json]") Message = Message & r.Value & "," & vbCr Next Message = Left(Message, Len(Message) - 1) & vbCr & "]" WriteFile "c:\data\temp\json\contacts.json", Message, True End Sub

---

Le json produit:

Code:

---

1 2 3 4 5

[ {Code:"546",Prénom:"Alain",Nom:"Térieur",Ville:"Paris",Entrée:"2020-04-25",Salaire:21546.36}, {Code:"125",Prénom:"Julie",Nom:"Hénas",Ville:"Bruxelles",Entrée:"2020-06-19",Salaire:25412.85}, {Code:"874",Prénom:"Jean",Nom:"Aymar",Ville:"Liège",Entrée:"2020-03-21",Salaire:23145.85}, ]

---