Discussion :

[ezaibus]

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

[mfoxy]

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,

[Alex020181]

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 ?

[Pierre Fauconnier]

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 :

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

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:

Code :

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

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

[Pierre Fauconnier]

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 :

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

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

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

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},
]