Bonjour à tous,

Quelques informations à mon sujet: j'opère une reconversion professionnelle, j'ai fait un peu de pascal quand j'étais à la fac, je me documente sur le net, mais bon... On pourrait gentiment me qualifier de noob en matière de vbs.

J'ai cherché un peu partout sur le forum et sur le net, et je n'ai rien trouvé...
J'ai un fichier CSV qui a cette tête là:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
title1,title2,title3,title4
="contenu1",="contenu2",="contenu3",="contenu4"
="contenu5",="contenu6",="contenu7",="contenu8"
...
et je voudrais le faire rentrer dans un tableau à 4 colonnes, mais j'ai un peu de mal. Voilà où j'en suis rendu:
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
 
Function csv_to_table(ByVal file_name As String)
   dim num_lines 'le nombre de lignes dans le fichier CSV
       num_lines=CLng(file_name)
   dim result_array(0,4)
   dim line_count
   dim fs,objTextFile
   set fs=CreateObject("Scripting.FileSystemObject")
   set objTextFile = fs.OpenTextFile(file_name)   	
 
   line_count=0
 
   Do while NOT objTextFile.AtEndOfStream
      result_array = Mid(split(objTextFile.ReadLine,","),2,Len(split(objTextFile.ReadLine,",")-1))
   '2 pour enlever les 2 premiers caractères, Len(..)-1 pour enlever le dernier
      line_count=line_count+1
   Loop
End Function
Mon problème, est le suivant: est-ce que comme ça, je rajouterai une ligne à mon tableau à chaque itération, ou pas ?