1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
'' -----------------------------------------------
Sub SauveDonnees()
Dim sNomFichier As String
Dim iNumFichier As Long
sNomFichier = App.Path & "\donnees.bin"
iNumFichier = FreeFile 'le prochain numéro de fichier libre pouvant être utilisé par l'instruction Open.
Open sNomFichier For Binary As #iNumFichier
Put #iNumFichier, , TableauDonnees ' enregistre le tableau
Close #iNumFichier
End Sub
'' -----------------------------------------------
Sub LitDonnees()
Dim sNomFichier As String
Dim iNumFichier As Long
sNomFichier = App.Path & "\donnees.bin"
iNumFichier = FreeFile 'le prochain numéro de fichier libre
Open sNomFichier For Binary As #iNumFichier
Get #iNumFichier, , TableauDonnees ' lit le tableau
Close #iNumFichier
End Sub |
