Mise a jour automatique d'un combobox lié a un fichier .txt

Résolu
cs_Fabian123 Messages postés 180 Date d'inscription vendredi 18 janvier 2008 Statut Membre Dernière intervention 22 novembre 2013 - 29 févr. 2008 à 10:43
cs_Fabian123 Messages postés 180 Date d'inscription vendredi 18 janvier 2008 Statut Membre Dernière intervention 22 novembre 2013 - 29 févr. 2008 à 11:07
Bonjour à tous!

la question est dans le titre, mais j'explique quand même un peu!

j'ai créé un userform dans lequel j'ai un combobox, un textbox et un commandbutton.
Lorsque l'utilisateur entre un nom dans le textbox et qu'il clique ensuite sur le bouton, l'information est enregistrée
dans un fichier .txt.

j'ai aussi un combobox qui est lié à la liste des noms du fichier.txt malheureusement le combobox ne se met pas à jour automatiquement. donc lorsque l'utilisateur entre un nouveau nom, il est bien enregistré dans le fichier.txt mais il n'apparait pas dans le combobox. Il faut fermer le UserForm et le relancer...

Est-il possible de faire une mise à jour automatique?

je vous laisse ci-dessous le code:

Private Sub UserForm_Activate()
'ouverture du fichier et lecture ligne par ligne
Open "C:\essai.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ligne$
ComboBoxNom.AddItem Mid(ligne$, 1)
Loop
Close #1
End Sub





Private Sub CommandButtonEnregistrer_Click()
Dim texte
texte = TextBoxNom.Text
Open "C:\essai.txt" For Append As #1
Print #1, texte
Close #1
TextBoxNom.Text = ""
End Sub

2 réponses

jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
29 févr. 2008 à 10:59
Salut,
Il te suffit au moment ou tu enregistre le nom dans le fichier, de l'ajouter à la combo box.

Private Sub CommandButtonEnregistrer_Click()
Dim texte As String
   texte = TextBoxNom.Text
   Open "C:\essai.txt" For Append As #1
       Print #1, texte
   Close #1
   Call ComboBoxNom.AddItem(texte)
   TextBoxNom.Text = vbNullString
End Sub , ----
[code.aspx?ID=41455 By Renfield]

Je pense que cela devrait repondre à tes attentes

@+: Ju£i?n
Pensez: Réponse acceptée
3
cs_Fabian123 Messages postés 180 Date d'inscription vendredi 18 janvier 2008 Statut Membre Dernière intervention 22 novembre 2013
29 févr. 2008 à 11:07
Merci!!!!!

et merci aussi de corriger les autres petites erreurs de mon code!
0
Rejoignez-nous