envoyer une sélection par mail
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:
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.
