Discussion :

[Kuchik]

Bonjour, j'aimerai donc envoyer un mail via Outlook sur VBA. le probleme que je rencontre est le suivant; je veux envoyer une plage de cellule qui est sur une de mes feuilles excel, lorsque je choisi une cellule précise cette derniere fonctionne mais quand j'utilise la fonction "range" ca ne marche plus, si vous pouviez m'éclairer, ça serait avec plaisir!

bien cordialement

[Oliv-]

Bonjour,
Voir ce sujet
https://www.developpez.net/forums/d1...o/#post8481850

OU CELUI-CI
https://www.developpez.net/forums/d1...email-outlook/

[Kuchik]

Merci Oliv de ta réponse, j'ai du coup regarder ton premier lien et je suis tombé sur ça:

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
Sub ExceltoHTMLBODY()
Const olMailItem = 0
'Copy range of interest
Dim r As Range
Set r = Range("b10:G14")
r.Copy
 
'Open a new mail item
Dim outlookApp As Object
Set outlookApp = CreateObject("Outlook.Application")
Dim outMail As Object
Set outMail = outlookApp.CreateItem(olMailItem)
 
'Get its Word editor
outMail.Display
Dim wordDoc As Object
Set wordDoc = outMail.GetInspector.WordEditor
 
'To paste as picture
'wordDoc.Range.PasteAndFormat wdChartPicture
 
'To paste as a table
wordDoc.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
 
End Sub

tout marche parfaitement, j'ai cependant un problème pour incorporer l'adresse mail, ainsi que le sujet du mail, je vois pas trop comment m'y prendre...