Lecture et écriture sur fichier texte [Résolu]

Signaler
Messages postés
17
Date d'inscription
mardi 19 février 2008
Statut
Membre
Dernière intervention
24 avril 2008
-
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
-
Salut tout le monde
voici mon code, il alimente trois ComboBox (vrp,client,profil). Pour la lecture pas de problème  par contre lorsque je renseigne une nouvelle donnée dans une des combo cette dernière ne s'ajoute pas dans le fichier text approprié .
Pouvez vous m'aider hier j'ai cru que ça marchait et aujourd'hui nada. Pour moi le problème se trouve dans les parties ComboBox_ajout.
Merci d'avance
Help Me
ps; le code est similaire pour les trois combo

Private Sub client_Load()
'Lis les informations contenus dans fichier.txt dans la liste déroulante au chargement
Open "[file://\\Srvflain\ordonnancement\devis \\Srvflain\ordonnancement\devis] usinage\Client.txt" For Input As #1
While Not EOF(1)
Input #1, temp
If temp <> "" Then
client.AddItem temp
End If
Wend
Close
End Sub
Private Sub client_ajout()
client.text = Nom2
Open "[file://\\Srvflain\ordonnancement\devis \\Srvflain\ordonnancement\devis] usinage\Client.txt" For Append As #1
'Ouvre fichier.txt et y rajoute la nouvelle donnée
Write #1, Nom2
client.AddItem (Nom2) 'Met à jour la ListBox
Close


End Sub

1 réponse

Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
Bonjour,

Regarde cette source elle pourra peut etre t'aiderhttp://www.vbfrance.com/codes/MODULE-LECTURE-ECRITURE-FICHIERS-TXT_20348.aspx

sinon fait quelques recherches car le site regorge de source avec cette procedure de lire et ecrire des fichiers texte