Je voudrais ecrire dans un fichier puis lire ce qui a été écrit. J'écris dans le fichier mais la fonction de lecture me renvois toujours du vide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim fichiers As String, i As Long,erreurs as integer
fichiers = "c:\test00"
i=20
tab_var(0) = "1"
tab_var(1) = "2"
tab_var(2) = "3"
ecriture_string fichiers, tab_var, i, erreurs
tab_var(0) = ""
tab_var(1) = ""   'Je vide var(0) et var(1) pour m'assurer du resultat de la lecture
lecture_string fichiers, tab_var, i, erreurs
MsgBox tab_var(0)
MsgBox tab_var(1)
 
Public Sub ecriture_string(ByVal fichier$, ByRef tableau() As String, num_enreg As Long, erreurs As Integer)
  On Error GoTo erreur
  Open fichier For Binary As #1 Len = 9000   
  Put #1, num_enreg, tableau
  Close #1
  erreurs = 0
  Exit Sub
erreur:
MsgBox "erreur"
erreurs = 1
Close #1
End Sub
 
Public Sub lecture_string(ByVal fichier$, ByRef tableau() As String, num_enreg As Long, erreurs As Integer)
  On Error Resume Next
   Open fichier For Binary As #1 Len = 4096
   Get #1, num_enreg, tableau
   Close #1
    erreurs = 0
    Exit Sub
End Sub