comment importer les données d'un fichier csv dans une variable tableau?
je m'explique :
mon fichier CSV de 100000 lignes délimité par des ";" est composé d'une multitude de données textes et numériques que je souhaite intégrées dans une variable tableau. Après avoir appliqué la fonction split à chacune de ces lignes, j'aimerai pouvoir traiter ce tableau pour le modifier.
Voici la méthode que j'ai utilisé :
Sub import()
Dim Conn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Fichier As String
Dim Chemin As String
Dim rSQL As String
Dim tbl() As Variant
Dim i As Integer
Chemin = "C:"
Fichier = "nomfichier"
'Mise en place de la connexion avec le fichier
Set Conn = New ADODB.Connection
Conn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Chemin & ";Extended Properties=""text;HDR=no;FMT=Delimited(;)"""
Conn.Open
rSQL = "SELECT * FROM [" & Fichier & ".CSV]"
Set Rst = New ADODB.Recordset
Set Rst = Conn.Execute(rSQL)
tbl = Rst.GetRows
For i = 0 To UBound(tbl, 2)
tbl(0, i) = Split(tbl(0, i), ";")
Next
Conn.Close
End Sub
ceci fonctionne mais la variable tableau est un variant et non une variable string.
merci d'avance pour votre réponse