Sauvegarder le contenu d une comboboxd'un formulaire outlook

Question

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 !!

pcpunch · Answer

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

stampeed · Answer

je vai tester
merci bcp pour la reponse

stampeed · Answer

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 ??

Sauvegarder le contenu d une comboboxd'un formulaire outlook

3 réponses

Discussions similaires