envoye mail, choix du contact excel Résolu/Fermé

Question

Bonjour,  

Grace à vos anciennes discussions j'ai trouvé une macro me permetant d'envoyer un mail depuis excel, cependant j'aimerai savoir si il est possible de choisir le destinataire lors de l'envoye du mail, car pour le moment je n'est pas d'autre moyens que de changer la macro à chaque fois. 

Merci beaucoup

kgigant · Answer

Personne a une petite piste ?

Mike-31 · Answer

Salut,

commence par donner le code que tu utilises voir comment on peut l'adapter

kgigant · Answer

ok excusez moi j'ai oublié de la mettre, voici la macro que j'ai utilisée

Sub EnvoiMail()
Workbooks("Classeur2").SendMail Recipients:="kevin.gigant@yahoo.fr", _
Subject:="envoie dossier", _
ReturnReceipt:=True
End Sub

Mike-31 · Answer

Re, 

Le plus simple est de créer une liste déroulante avec tes adresses mail exemple dans une autre feuille ou colonne masquée saisir les adresses, nommer la plage d'adresse et dans par exemple D2 faire référence à la plage nommée. 
choisir en D2 l'adresse et clic sur un bouton associé au code. Il est également possible de déclencher l'envoi automatiquement en sélectionnant le nom en D2

ensuite si tu dois envoyer le classeur actif tu peux écrire ce code 

Sub EnvoiMail() 
ActiveWorkbook.SendMail Recipients:=[D2].Value, _ 
Subject:="envoie dossier", _ 
ReturnReceipt:=True 
End Sub 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

kgigant · Answer

une autre feuille ou colonne masquée saisir les adresses, nommer la plage d'adresse et dans par exemple D2 faire référence à la plage nommée. 
choisir en D2 l'adresse et clic sur un bouton associé au code.

Merci de ton aide Mike mais pourrais-tu un peu plus expliquer cette partie stp

Merci d'avance

Mike-31 · Answer

Re,

Pas de problème, quelle est ta version d'Excel

kgigant · Answer

2007

Merci

Mike-31 · Answer

Re,

commence par saisir en colonne les adresses mail, soit sur la même feuille dans une colonne que tu pourras masquer ou sur une autre feuille.

une fois les adresses saisies, mets en surbrillance toutes la plage, éventuellement prévois des cellules vides en fin de liste ce qui te permettra d'ajouter des adresses (ex. A1:A20)

Onglet Formule/Module Noms Définis/clic sur Définir un Nom/Définir un Nom
dans Nom saisis le nom désiré ex . titi

Si on reste dans mon exemple clic sur D2 et onglet Données/module Outils de Données, clic sur Validation des Données, dans Autoriser sélectionne Liste et dans Source écris =titi

lorsque tu cliqueras sur D2 tu auras accès à une liste déroulante, sélectionnes l'adresse mail et clic sur le bouton associé à ton code.

Pour associer un bouton, soit tu le dessines avec la barre formulaire et clic droit sur le bouton, Affecter à une Macro ou tu dessines le bouton avec la barre contrôle et tu places le code dans les propriétés du bouton

kgigant · Answer

Merci bcp de ton aide

Envoye mail, choix du contact excel

9 réponses

Discussions similaires

Newsletters