importer fichier text dans une list box

Bonjour,
news.microsoft.com a écrit :

bonjour

excusez moi pour cette question mais je suis extremement débutant

je cherche a importer un fichier texte dans une listview a plusieurs colonne

pour info, j'ai 3 colonne

mon fichier texte fais environ 100 ligne de 3 colonnes , chaque colone
etant délimité par une virgule (mais ca peut se changer)
la premiere ligne de mon fichier contien les entetes de colone.

exemple

entete1,entete2,entete3
item1,item2,item3
item1,item2,item3
item1,item2,item3
item1,item2,item3
..........

merci d'avance pour votre aide

francois

Par exemple (sans gestion d'erreur) :

Private Sub UpdateListView1()
Dim fNum As Integer
Dim Rec As String
Dim Tbl() As String
Dim i As Integer
Dim itmX As ListItem

With Me.ListView1
.View = lvwReport
.FullRowSelect = True
.ListItems.Clear
.ColumnHeaders.Clear
End With
fNum = FreeFile()
Open "Fic.txt" For Input As FreeFile
While Not EOF(fNum)
Line Input #fNum, Rec
Tbl = Split(Rec, ",")
With Me.ListView1
If .ColumnHeaders.Count = 0 Then
For i = LBound(Tbl) To UBound(Tbl)
.ColumnHeaders.Add , , Tbl(i)
Next
Else
Set itmX = .ListItems.Add(, , Tbl(0))
For i = LBound(Tbl) + 1 To UBound(Tbl)
itmX.SubItems(i) = Tbl(i)
Next
End If
End With
Wend
Close #fNum
End Sub

--
Cordialement,

Jacques.