Bonjour,

Tout est dans le titre je programme une macro me permettant d'envoyer un mail (Via OUTLOOK) à partir d'info présente sur une feuille excel de mon fichier.

Pour envoyer le mail pas de soucis, pour mettre une cellule dans le corps de mon mail pas de soucis mais lorsque je veux mettre une plage de cellule dans le corps du mail ca ne fonctionne plus.

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
Sub Envoi_Ressource()
' ENVOI PAR E-MAIL du formulaire:
 
Dim MonOutlook As Object
Dim MonMessage As Object
 
Monfichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ""
MonTo = "test@test.com"
 
Dim mail
'La je met la cellule A1 c'est ici que je voudrais prendre une plage de cellule
mail = Range("A1")
 
'Préparation du mail 
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = MonTo
MonMessage.Subject = "Mon sujet_"
 
Corps = Corps & mail
 
MonMessage.body = Corps
MonMessage.Send
Set MonOutlook = Nothing
 
End Sub
Merci pour votre aide.