Bonjour,
J'ai un code me permettant dans Emailing de sélectionner un message... ceci se fait en tapant un chiffre (correspondant au ID_mess) dans une Inputbox. Je souhaiterais remplacer cela par une LISTE DEROULANTE ou seraient listés les "sujets" (correspondants à un autre champ de ma table messages)... ce qui me paraît plus convivial et dynamique. Est-ce possible au sein de mon code ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
vRéponse = InputBox("Quel message voulez-vous envoyer ? Tapez dernier ou le numéro correspondant.", "Liste de diffusion")
        If LCase(vRéponse) <> "dernier" And Val(vRéponse) <= 0 Then Exit Sub
        If LCase(vRéponse) = "dernier" Then
        vMessages.MoveLast
        vTrouvé = True
        End If
        If Val(vRéponse) > 0 Then
        vMessages.FindFirst "IDmess=" & Val(vRéponse)
        If vMessages.NoMatch Then
        MsgBox "Ce message n'existe pas", vbOKOnly + vbCritical, "Liste de diffusion"
        Else
        vTrouvé = True
        End If
        End If