VBA - Coller une plage de cellules dans Outlook sans Pieces Jointes

[Gunther]

Bonsoir le Forum,

Je souhaite envoyer des Mails, en collant dans le corps du texte une plage de cellule sans perdre la Mise en forme du fichier Excel...

Je m'attendais a réussir en piochant des infos par-ci par-là... sur le(s) forum(s)

Mais... rien... enfin si... mais je n'arrive pas a l'adapter a ma situation !

Je vous mets en copie un fichier test.

Merci d'avance pour toute votre aide, et encore merci vos aides précédentes

A bientôt

 

[david84]

Re : VBA - Coller une plage de cellules dans Outlook sans Pieces Jointes

Bonsoir,
peut-être une piste ici.
A+

 

[david84]

Re : VBA - Coller une plage de cellules dans Outlook sans Pieces Jointes

Re
testé sur ton fichier :

Sub envoiPlageCellules_Excel2002()
Application.ScreenUpdating = False
ActiveSheet.Range("B5:G15").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "fifi@fifi.com" 'utiliser une adresse valide pour tester
    .Item.Subject = "le sujet"
    .Item.Send
End With
Range("B5").Select
Application.ScreenUpdating = True
End Sub

A+

 

[Staple1600]

Re : VBA - Coller une plage de cellules dans Outlook sans Pieces Jointes

Bonsoir à tous, david84

Gunther
Une autre piste souvent citée sur XLD
(M'étonnes que tu l'ai pas vu lors de tes recherches, car le gars Ron l'est fameux chez les amoureux de la Cellule)
Mail Range or Selection with SendMail