email depuis une selection ds excel

[christophe]

Bonjours,

J'ai dans excel, un liste d'adresses email. Je cherche a utiliser un selection non continu de cellules pour utiliser leur contenu comme destinataire d'un email.

J'aimerai que la macro transforme ma selection en un seul champ de destinataire (en ajoutant un ; entre chaque adresse) et qu'elle m'ouvre automatiquement dans outlook un email a rediger et a envoyer.

J'ai cherche sur le net, et essayer par moi meme, mais je n'y arrive pas.

Merci pour vos info !
Christophe

 

[juju]

Hello,

Le plus simple je pense serait d'abord de concatener tes adresses dans une cellule.
du style A1 & ";" A2 & ";" & A3

Ensuite tu récupère les adresses facilement dans ton mail avec la macro ci-dessous :

Sub EnvoiMail_Outlook()
'Creation de l'objet e-mail
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
'Caractéristiques de l'e-mail
With olmail
.To = Range("B1")
'Affiche le nom comme objet du message
.Subject = ActiveWorkbook.FullName
.Body = "Bonjour..."
'Les pièces jointes doivent être déclarées avec leur chemin complet
.Attachments.Add "C:\PGI\Résultats.xls"
'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
.Display
End With

Bye

Ju

 

[sophie]

Oui, c comme ça que je ferai. Tu peux créer des groupes à partir des sélections que tu envisages et créer la chaine de caractères A1, A2, A5 comme argument constituant de ce groupe.