Bonjour, je voudrais lire le contenu d'un fichier et afficher les données dans des text box.

J'arrive à écrire dans un fichier via des text box.

voici mon code pour l'écriture des données dans le fichier:

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
35
36
37
38
39
40
 
Dim nomfichier As String
Dim numfichier As Integer
 
 
 
Private Sub CmdAfficher_Click()
 
End Sub
 
Private Sub cmdEnregistrer_Click()
 
'Dim nomfichier As String
'Dim numfichier As Integer
 
'nomfichier = InputBox("Donner le nom du fichier")
'numfichier = FreeFile
 
'Open "C:\" & nomfichier For Append As numfichier
Print #numfichier, txtNom.Text, txtPrenom.Text, txtDateNaissance.Text
'Close #numfichier
txtNom.Text = ""
txtPrenom.Text = ""
txtDateNaissance.Text = ""
 
End Sub
 
Private Sub CmdQuitter_Click()
Close #numfichier
 
End
End Sub
 
Private Sub Form_Load()
nomfichier = InputBox("Donner le nom du fichier")
numfichier = FreeFile
 
Open "C:\" & nomfichier For Append As numfichier
 
End Sub


Pour la lecture du fichier voici mon début de code:

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
 
Dim nom As String
Dim prenom As String
Dim date_naissance As String
 
'nom = Input (numfichier)
txtNom.Text = Input(numfichier, nom)
 
 
End Sub
 
Private Sub CmdQuitter_Click()
 
 
End
 
End Sub
 
Private Sub Form_Load()
 
End Sub


Pouvez-vous m'aider à ouvrir le fichier et récupérer les données??

Merci