listbox et fichier texte

Salut,

je souhaite inserer dans une listbox, du texte provenant d'un fichier .txt dont les données sont séparées par des ";" .
Comment puis je faire?

J-L

Bonjour,
Tu places sur Ton UserForm un contrôle CommandButton et une ListBox et tu remplaces MonFichier.txt par ton fichier.

Private Sub CommandButton1_Click()
Dim ImpRng As Range
Dim FileName As String
Dim r As Long, c As Integer
Dim txt As String, Char As String * 1
Dim Data
Dim i As Integer
Set ImpRng = ActiveCell
On Error Resume Next
FileName = "C:\MonFichier.txt"
Open FileName For Input As #1
If Err <> 0 Then
MsgBox "Introuvable : " & FileName, vbCritical, "ERREUR"
Exit Sub
End If
r = 0
c = 0
txt = ""
Application.ScreenUpdating = False
Do Until EOF(1)
Line Input #1, Data
For i = 1 To Len(Data)
Char = Mid(Data, i, 1)
If Char = "," Then
ActiveCell.Offset(r, c) = txt
c = c + 1
txt = ""
ElseIf i = Len(Data) Then
If Char <> Chr(34) Then txt = txt & Char
ListBox1.AddItem txt
txt = ""
ElseIf Char <> Chr(34) Then
txt = txt & Char
End If
Next i
c = 0
r = r + 1
Loop
Close #1
Application.ScreenUpdating = True

End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée.

J'ai un problème avec "Dim ImpRng As Range"
message d'erreur :"Type défini par l'utilisateur non défini"
J-L

Re bonjour,
Si tu as retappés le code regarde bien si tu n'as fais d'erreurs, car je viens de réessayer chez moi et celà marche très bien.
jpleroisse

Cela marche parfaitement, merci.

J-L