Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Form_Load() 'Déclaration des variables Dim Filename As String Dim iLenght As Integer ' Affectation de FileName à command$ Filename = Command$ ' Si l'application à été chargé avec un fichier If Filename <> "" Then ' Car il nous l'affiche avec des " " donc suppression de ceux-çi iLenght = Len(Command$) - 2 ' Suppression des guillemets Filename = Mid(Filename, 2, iLenght) ' Lecture du Fichier ' { Open Filename For Input As #1 Line Input #1, Texte Tout = Texte While Not EOF(1) Line Input #1, Texte Tout = Tout + vbNewLine + Texte Wend ' } rtfText.Text = Tout End If End Sub