Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub File1_DblClick() Dim Texte As String NumeroFichier = FreeFile Fichier = File1.FileName Open Fichier For Input As #NumeroFichier Input #NumeroFichier Texte Label1.Caption = Texte Close NumeroFichier End Sub