contenu d'une cellule dans un mail

[kinel]

bonjour à tous

l'extrait de code ci-dessous me sert à envoyer la sauvegarde de mon classeur par mail
je voudrai qu'apparaisse dans le corps du mail le contenu d'une cellule du classeur (exemple la cellule A2 de la feuille bondecommande)

merci de vos conseils
Kinel

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Bonjour" & vbNewLine & vbNewLine & _
"voici la sauvegarde de mon classeur" & vbNewLine & _
"Test 2" & vbNewLine & _
"Test 3" & vbNewLine & _
"Test 4"
On Error Resume Next
With OutMail
.To = "truc@truc.com"
.CC = ""
.BCC = ""
.Subject = "sauvegarde de mon classeur"
.Body = strbody
.Attachments.Add FileNameZip
.Send
End With

 

[Homer75]

Re : contenu d'une cellule dans un mail

ca roule !!!!

Maintenant je vais essayer de mettre les mails dans une autre feuille (pour eviter de les voir dans la copie du mail)

Merci beaucoup !!!!!