Bonjour,
Tu me parles de Form Load, tu es en vb6 ??, parceque en VBA sous Excel,
ce code fonctionne.En VB6, tu dois remplacer TextBox1 par Text1 ou le
nom que tu as donnés à tes TextBox.
J'ai essayé les deux et cele fonctionne.
Private Sub UserForm_Initialize()
Dim crlf, tout, tout1, tout2, texte, texte1, texte2
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\TonFichier.txt" For Input As #1
Line Input #1, texte
Line Input #1, texte1
Line Input #1, texte2
tout = texte
tout1 = texte1
tout2 = texte2
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
Line Input #1, texte1
Line Input #1, texte2
tout = tout + crlf + texte
tout1 = tout1 + crlf + texte1
tout2 = tout2 + crlf + texte2
Wend
End If
TextBox1.Text = tout
TextBox2.Text = tout1
TextBox3.Text = tout2
Close #1
End Sub
'J'ai un peu raccourci le code
jpleroisse