bonjour Cheifram,
Sujet déjà traité sur ce forum et d'autres. Mais comme cela fait 1 an que tu es sans réponse, je t'ai mâché le travail.
Voici le code VBA :
Sub envoimail()
Dim smail As Worksheet
Set smail = ActiveWorkbook.Sheets("Feuil1")
Dim r As Range
Set r = smail.Range("B7:P19")
r.CopyPicture xlScreen, xlBitmap
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
On Error GoTo 0
Set OutMail = OutApp.CreateItem(0)
With OutMail
.BodyFormat = 3
.To = "destinataire@gmail.com"
.CC = ""
.BCC = ""
.Subject = "Le nombre de ventes"
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
oRng.collapse 1
oRng.Paste
.Display
End With
End Sub
Puis je te joins le fichier, avec un bouton en prime ;)
Bonne journée,
Redmine