[XL-2003] Copie une zone Excel dans Lotus Note

[jlp035]

Bonjour,
je souhaite copier le contenu de la zone A1:W1 de la feuille active dans lotus note apres validation d'une macro.
Pour l'instant ma zone de texte ce copie bien, lotus s'ouvre bien, l'adresse mail de la persone et l'objet également.
Mais actuellement je dois faire control C pour copier le contenu de ma feuille dans le corp du mail.
Je souhaite donc que cela se fasse également automatiquement .

Ci joint mon morceau de programme actuel :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EnvoiMail1()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Range("A1:W57").Select
Range("A57").Activate
Selection.Copy
MailAd = Range("O17")
Subj = Range("B21")
Msg = Msg & Range("A57")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

d'avance Merci