Aide VBA

Bonsoir,

J'aurai une question sur les pro du VBA.

j'ai crée un bouton pour faire un mailing a des destinataire avec texte mais comment faire pour integrer dans le mail une copie de ma feuille excel ?

j'aimerai par exemple faire une copie en "image" de la cellule A1 a Q40

Il y aurait il de mettre aussi automatiquement la date du jour en objet ?

ci dessous la macro :

-------------------------------------------------------

ub Bouton1_Cliquer()

Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hello, " & vbNewLine & vbNewLine & _
"Ci dessous les ventes du jour." & vbNewLine & _
"Aime, Cdt, "
On Error Resume Next
With xOutMail
.To = "xxxx@yahoo.fr;"
.CC = "xxxxxx@yahoo.fr
.BCC = ""
.Subject = "Vente du jour- xx/xx/201x"
.Body = xMailBody
.Display
End With

On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing

End Sub

-------------------------------------------------------------

Merci par avance pour votre aide

Aime