Salut a vous
je m'excuse pour ce retard , j'était absent pendant une semain.
voila j'ai suivi ton conseil SharVB et ça a bien marché .
On utilisant les paramères de la fonction OpenTextFile j'ai parvenu a litre un fichier écris en Unicode(lettres en arabe) .
Voila le nouveau code apré réctification :
'----------------------------------------------------------
Dim fso As New FileSystemObject
Dim strm As TextStream
Dim phrase1 As String
Dim nouvellePhrase As String
Private Sub cmdBoutton_Click()
If strm.AtEndOfLine = False Then
phrase1 = strm.ReadLine
txtAffichage.Text = phrase1
Else
strm.Close
Unload Me
End If
End Sub
Private Sub Form_Load()
Set strm = fso.OpenTextFile("c:\arabe.txt", ForReading, False, TristateTrue)
End Sub
Merci Shar