Private Sub Check1_Click() Dim numFile As Long numFile = FreeFile Open "C:\toto.txt" For Input As #numFile ' des trucs ici Close #numFile End Sub
Private Sub Check1_Click() Dim numFile As Long numFile = FreeFile Open Check1.Caption For Input As #numFile ' des trucs ici Close #numFile End Sub