Liaison Excel Outlook

Bonjour
Voici un exemple (ici les adresses mails sont à partir de A1).
Placer le code dans un module standard et ajouter la référence à Microsoft
Outlook x.0 Object Library (où x = le numéro de ta version Outlook)
Cordialement
Pascal

Sub Tester()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim i&
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
For i = 1 To Range("A65536").End(xlUp).Row
.Recipients.Add (Cells(i, 1))
Next i
.Subject = Range("B1").Value
.Body = "Ceci n'est qu'un test d'envoi de message via Excel VBA"
.Send
End With
Set olmail = Nothing
Set ol = Nothing
End Sub

"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message
de news:F8FF8DC7-399C-4F96-B84E-582A5E4F16E8@microsoft.com...

Bonjour,

je cherche a faire une liaison entre Excel et Outlook.
Sur Excel, j'ai un tableau dans lequel figure des adresses mail. Ces
adresses sont différentes à chaque ouverture de ce tableau (Résultat d'une
liaison avec une autre feuille Excel).Je souhaiterais que les adresses qui
apparaîssent soient automatiquement (avec un raccourci clavier) mises en
destinataire d'un nouveau message dans Outlook.
Si ma demande est réalisable, je vous remercie d'avance pour votre aide.
A +