Sauvegarder le contenu d une comboboxd'un formulaire outlook

stampeed Messages postés 22 Date d'inscription vendredi 1 août 2003 Statut Membre Dernière intervention 28 novembre 2006 - 1 août 2003 à 12:56
stampeed Messages postés 22 Date d'inscription vendredi 1 août 2003 Statut Membre Dernière intervention 28 novembre 2006 - 1 août 2003 à 15:18
Mon but final est de mettre une combox auquelle on peut ajouter des mots dans la liste
et surtout je souhaiterais que tous les formulaires ait la meme liste
car losrque j utilise additem et que je ferme le formulaire apres l avoir enregistre, la liste est a nouveau vierge lorsque j ouvre un nouveau formulaire alors que j ailmerais voir apparaitre la liste deja remplie

HELP !!

3 réponses

pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
1 août 2003 à 14:37
voila !!!

Private Sub Command1_Click()
'on ajoute dans le combo
txt = InputBox("Texte a ajouter")
Combo1.AddItem txt
Combo1.Text = txt
End Sub

Private Sub Form_Load()
Dim txt As String
'on charge la liste a l ouverture de l'appli si elle exite
If Dir("c:\listecombo") <> "" Then
Open "c:\listecombo" For Input As #1
Do While Not EOF(1)
Input #1, txt
Combo1.AddItem txt
Loop
Close #1
Combo1.ListIndex = 0
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
'a la fermeture on enregistre la liste du combo
Open "c:\listecombo" For Output As #1
For i = 0 To Combo1.ListCount
Write #1, Combo1.List(i)
Next i
Close #1
End Sub
0
stampeed Messages postés 22 Date d'inscription vendredi 1 août 2003 Statut Membre Dernière intervention 28 novembre 2006
1 août 2003 à 15:10
je vai tester
merci bcp pour la reponse
0
stampeed Messages postés 22 Date d'inscription vendredi 1 août 2003 Statut Membre Dernière intervention 28 novembre 2006
1 août 2003 à 15:18
j ai un petit probleme
je mets ca dans le script du formulaire
et il me met fin d'instruction attendue ligne 9
c est a dire a la ligne
Dim txt As String

Que faire ??
0
Rejoignez-nous