[VBA]Email Sélection messages

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:

---

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

---

Une fois de plus, tu as de la chance que le soleil brille.

C'est pas ce code qu'il faut changer.

Il faut créer dans ton formulaire de départ une liste et simplement utiliser cette liste pour sélectionner ton texte.

Code:

---

vReponse = Me.listedechoix

---

Merci pour tes réponses toujours aussi lucides... Mon code est devenu ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Set olApp = Outlook.Application Set vMessages = CurrentDb.OpenRecordset("R_Messages") vTrouvé = False Do While vTrouvé = False vRéponse = Me.Message_Type If Val(vRéponse) > 0 Then vMessages.FindFirst "IDmess=" & Val(vRéponse) If vMessages.NoMatch Then MsgBox "Vous devez sélectionner un message", vbOKOnly + vbCritical, "Liste de diffusion" Else vTrouvé = True End If End If Loop vSujet = vMessages.Fields("Sujet") vContenu = vMessages.Fields("Body") vMessages.Close Set vMessages = Nothing

---

[/CODE]

Par contre, Je n'arrive pas à gérer la partie en gras... Si je l'enlève, le code plante et si je la laisse pas de message. En fait je souhaiterai gérer le cas toujours possible de l'utilisateur oubliant de sélectionner un message dans la liste déroulante ce qui conduit inévitablement à ce qui s'affiche dans la pièce jointe... Pas de gestion de Null ! (heureusement que je ne suis pas susceptible)...

A part cela, départ pour les Marquises dans les heues à venir avec une petite plongée dans une dizaine d'heures. Pensées à ceux qui subissent un printemps moyen pour l'instant et une petite PJ pour vous aider !

J'ai oublié la vraie PJ du message !!!

Le printemps pour l'instant n'est pas moyen, c'est blue sky.
Le premier code était alors incomplet.

Code:

---

1 2 3 4

Set olApp = Outlook.Application   vSujet = Me.Message_type.column(x) vContenu = Me.Message_type.column(y)

---

Devrait mieux passer.

Merci pour ce "tchat" rapide par email alors que nous sommes à 18000kms l'un de l'autre. je crois que je me suis mal fait comprendre... Ok pour le complément du code concernant les colonnes adjacentes mais le problème du null c'est quand ll'utilisateur a oublié de sélectionner un item dans la liste déroulante... Celle-ci reste vierge et par oncséquent le message d'erreur survient...
J'aurai voulu rajouter un else donnant la CATenir en cas de liste déroulante null derrière ce morceau de code

Code:

---

1 2	If Val(vRéponse) > 0 Then vMessages.FindFirst "IDmess=" & Val(vRéponse)

---

en supprimant ceci :

Code:

---

1 2	If vMessages.NoMatch Then MsgBox "Vous devez sélectionner un message", vbOKOnly + vbCritical, "Liste de diffusion"

---

mais là je ne sais pas m'y prendre...

Quand j'ai sélectionné un message OK ca fonctionne mais quand il n'y a pas de message encore SELECTIONNE dans la liste un message du style vous devez sélectionner... A moins que j'en mette un par défaut !
Désolé...

Petite astuce, le bouton qui lance le code, tu le mets sur

Code:

---

Enabled = Fase

---

sur le oncurrent du fomulaire.

Et sur le AfterUpdate de ta liste

Code:

---

1 2 3 4

Sub Maliste_AfterUpdate() MonBouton.Enabled = True End Sub

---

De cette manière, tu désactives le bouton lors de l'ouverture ou de changement d'enregistrement sur ton formulaire et lorsque la personne choisit un item dans la liste, le bouton devient disponible.

Comme quoi de simples petites choses peuvent rendre la vie belle !
Merci...