Discussion :

[Yvan41]

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.

[Maiden002]

Bonjour,

Essaye sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.ReadReceiptRequested = False

A+

[Yvan41]

Merci Maiden002

çà marche en ajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Item.ReadReceiptRequested = False

[Maiden002]

De rien

Oublie pas le Résolu