E.B.
'******Pour Enregistrer Un Fichier******** dim NumFile as string NumFile=FreeFile cd.ShowSave open cd.fileName For Append As #NumFile Print #NumFile,Text1.text close #NumFIle '**********Ouvrir un fchier****************** cd.showOpen open cd.FileName For Input as NumFile Input #NumFile,Text1.Text Close #NumFile