Re-bonjour,
Après avoir regardé plusieurs forums et adapter le code, j'ai enfin réussi à faire ce que je voulais.
Voici le code pour les personnes intéressées :
Sub envoimail()
Dim smail As Worksheet
Set smail = ActiveWorkbook.Sheets("Feuil1")
Dim r As Range
Set r = smail.Range("B4:D14")
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 = [F5]
.CC = [H5] & ";" & [H6] & ";" & [H7]
.BCC = ""
.Subject = [B6]
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
oRng.collapse 1
oRng.Paste
.Display
'.send
End With
End Sub
Et en pièce jointe, le fichier :
En tout cas, un grand merci fred2406 pour le temps que tu as accordé à mon problème et pour ton travail qui m'a permis de comprendre et adapter le code.
Bonne continuation et bon weekend !
Julien