Macro pour envoyer une feuille excel par outlook

olivier.corbin

XLDnaute Nouveau
Bonjour
Comment faire une macro pour envoyer cette feuille Excel dans le corps d'un mail au destinataire qui se trouve en cellule B9.
Voir fichier joint.
Je veux juste que cette feuille constitue le mail à elle seule, sans aucun ajout.
Merci pour votre aide je n'ai jamais fait une macro.
Cordialement
Olivier
 

Pièces jointes

  • AVIS PASSAGE.xlsx
    143.3 KB · Affichages: 133

fredl

XLDnaute Impliqué
Re : Macro pour envoyer une feuille excel par outlook

Bonjour,
A tester :
Sub mailSelectionDansCorpsDuMessage()
ActiveSheet.Range("a1:h34").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'.Introduction = "derniere version ..."
.Item.To = Range("b9").Value
.Item.Subject = "Avis de passage"
.Item.Send
End With
End Sub


Dis moi
Fréderic
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon