Bonjour,

J'essaie d'envoyer un mail Outlook via une macro et pour le moment je suis bloqué sur un point et j'espère trouver la solution ici.
Voici mon code pour commencer:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub SendMail()
Dim shp, shp1 As Shape
 
Dim ol As Outlook.Application
Dim mi As Outlook.MailItem
Dim doc As Word.Document
 
 
Set shp = ActiveSheet.Shapes("ZT")
Set shp1 = ActiveSheet.Shapes("ZoneText1")
 
Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)
 
mi.Display
 
mi.To = shp.TextFrame.Characters.Text
mi.CC = shp1.TextFrame.Characters.Text
mi.Subject = "Suivi des recettes" & Range("J24") & "_" & Range("J1")
 
Set doc = mi.GetInspector.WordEditor
 
doc.Range(0, 0).InsertBefore "Bonjour," & vbNewLine & vbNewLine & "Veuillez trouver ci-après les informations relatives blabla." & vbNewLine & vbNewLine & _
"     I.  Overview " & Range("J24") & ":" & vbNewLine & vbNewLine & "Ci-dessous le nombre total des recettes" & vbNewLine & vbNewLine
 
ActiveSheet.Range("AM14:AR21").Copy
 
'Je souhaite coller le tableau copié dans la suite du corps du mail
 
End Sub
Mon objectif est simple, c'est de coller le tableau Range("AM14:AR21") dans la suite du corps du mail. Je n'arrive pas à le faire.
Pourriez-vous m'aider svp ?

Merci d'avance.