-------------------------------
Réponse au message :
-------------------------------
Private Sub Form_Load()
'0n Error Resume Next 'Les erreurs sont ignorees'
Open "c:\it\stat\STAT01-05 2001\stat26e.txt" For Input As #1
Open "c:\it\stat\STAT01-05 2001\stat26e1.txt" For Output As #2
Dim i As Integer
Dim texte, texte2, texte3 As String
Line Input #1, texte
If Len(texte) <> 0 Then
While Not EOF(1)
Line Input #1, texte
texte = Trim(texte)
texte = Mid$(texte, 6, Len(texte))
texte = texte + Chr$(13) + Chr$(10)
Print #2, texte
Wend
'End If
Close #1
Close #2
MsgBox ("Operation terminee")
End Sub