Bonjour,

Merci à SilkyRoad, Random, cavo789 pour le code ci dessous permettant d'envoyer par mail une sélection de cellules Excel.

Il fonctionne bien cependant il y t il une instruction à ajouter pour ne pas demander d'accusé de reception?

-------------------------------------------------------------------------------
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub envoiPlageCellules_Excel2002()
ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "destinataire@dvp.fr"
    .Item.Subject = "le sujet"
    .Item.Send
End With
End Sub
-------------------------------------------------------------------------------

merci à vous.