cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 25 juil. 2003 à 00:22
Chez moi, ça marche parfaitement
Open "g:\sans titre.txt" For Input As #1
texte = Input(LOF(1), 1)
Dim tabl() As String
tabl = Split(texte, Chr(9))
For i = 0 To UBound(tabl)
Text1.Text = Text1.Text & tabl(i) & vbCrLf
Next