Discussion :

[gangstarrr]

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.

[Jean-Philippe André]

salut,

la solution proposee dans la semble bien repondre a ta question
http://excel.developpez.com/faq/inde...geCellulesMail

avec meme un complement traite directement dans le forum
http://www.developpez.net/forums/d96...omplement-faq/

Toujours privilegier une recherche dans la

[gangstarrr]

ah désolé je suis un peu nouveau je connaissais pas la FAQ (qui est top au passage)

C'est parfait j'ai trouvé mon bonheur, j'ai utilisé la solution qui permet de mettre la plage de cellule dans un fichier temporaire HTML.

Seul petit hic le message est centré dans mon mail et j'aimerais qu'il soit aligné à gauche du mail. Est-ce qu'il est possible de modifier ca ?
Peut être enmodifiant le fichier HTML via la macro (compliqué non)?
Si vous connaissez une solution je suis preneur.

Merci.