Insertion d'une plage de cellule dans l'envoi d'un mail

[Alghorn]

Bonjour,

Je fais appel à vous car je bloque sur un truc.
J'ai une macro qui me permet de générer un mail avec un PJ.
Jusqu'ici tout va bien, tout fonctionne.

Le hic, c'est que je n'arrive pas à lui faire insérer une plage de donnée d'un de mes onglets dans le corps du message.

Voici actuellement ma macro

Dim Outlook As Object
Dim Mail As Object
Dim Dest As String
Dim Objet As String
Dim Corps As String

Dest = "toto@toto.fr"
Objet = "toto"
Corps = ???? ICI JE VOUDRAI INSERER UNE PLAGE DE DONNEE PROVENANT D'EXCEL

Set Outlook = CreateObject("Outlook.Application")
Set Mail = Outlook.CreateItem(0)

With Mail
.to = Dest
.CC = ""
.BCC = ""
.Subject = Objet
.Body = Corps
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
'
End Sub

Si quelqu'un a une idée, je suis preneur

Merci d'avance

 

[degap05]

Re : Insertion d'une plage de cellule dans l'envoi d'un mail

Bonjour,

Toutes les explications:
Mail Range or Selection with SendMail

Le fichier exemple joint.

A+

 

[Alghorn]

Re : Insertion d'une plage de cellule dans l'envoi d'un mail

Je viens de jeter un œil mais la sélection copié est insérer en PJ.
Ce que moi je souhaitais, c'est que cette sélection soit insérer dans le corps du mail.
Dans le lien que tu me fourni, je n'arrive pas à voir ou cela est traité.

Mais merci d'avoir répondu !

 

[Hulk]

Re : Insertion d'une plage de cellule dans l'envoi d'un mail

Hello,

Voici un autre lien, si tu ne le connais pas, peut-être il te servira.

Cdt, Hulk.

 

[degap05]

Re : Insertion d'une plage de cellule dans l'envoi d'un mail

Je viens de jeter un œil mais la sélection copié est insérer en PJ.
Ce que moi je souhaitais, c'est que cette sélection soit insérer dans le corps du mail.
Dans le lien que tu me fourni, je n'arrive pas à voir ou cela est traité.

Mais merci d'avoir répondu !

J'ai changé le fichier en PJ, celui-là transmet une plage dans le corps du message (Range in Body).

 

[degap05]

Re : Insertion d'une plage de cellule dans l'envoi d'un mail

Un fichier joint qui fonctionne avec OUTLOOK.

 

[Alghorn]

Re : Insertion d'une plage de cellule dans l'envoi d'un mail

Ca marche du tonnerre !!!!!

Merci à vous deux pour votre précieuse aide