Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Type MONTYPE MaDate As String * 8 MonFichier As String *20 End Type Private Sub Command1_Click() Dim MonRec As MONTYPE With MonRec .MaDate = Now() .MonFichier = "C:\MonFichier.txt" End With Open "C:\cfg.txt" for Binary as #1 Put #1,,MonRec Close #1 End sub
E.B.
E.B.
E.B.
E.B.