C'est tout c'est tout.
Merci de répondre

 

Private Sub LireTexteEtCopierDansRTB(sFilename As String)

Dim numFile As Long
numFile = FreeFile
Open sFilename For Input As #numFile
While not EOF(numFile)
Line Input #numFile,s
RichTextBox1.Text = RichTextBox1.Text & s & vbCrLf
Wend
Close # numFile
End Sub

Private Sub Command1_Click()
LireTexteEtCopierDansRTB "C:\texte1.txt"
LireTexteEtCopierDansRTB "C:\repertoire\texte2.txt"
LireTexteEtCopierDansRTB "C:\repertoire\texte3.txt"
' ...
End Sub


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.