Mise a jour automatique d'un combobox lié a un fichier .txt [Résolu]

cs_Fabian123 180 Messages postés vendredi 18 janvier 2008Date d'inscription 22 novembre 2013 Dernière intervention - 29 févr. 2008 à 10:43 - Dernière réponse : cs_Fabian123 180 Messages postés vendredi 18 janvier 2008Date d'inscription 22 novembre 2013 Dernière intervention
- 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
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 29 févr. 2008 à 10:59
3
Merci
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

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 84 internautes ce mois-ci

Commenter la réponse de jrivet
cs_Fabian123 180 Messages postés vendredi 18 janvier 2008Date d'inscription 22 novembre 2013 Dernière intervention - 29 févr. 2008 à 11:07
0
Merci
Merci!!!!!

et merci aussi de corriger les autres petites erreurs de mon code!
Commenter la réponse de cs_Fabian123

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.