Envoyer le contenu d'une feuille par email
Bonjour tout le monde,
j'aimerai pouvoir envoyer le contenu d'une feuille par email en VBA.
Manuellement, j'ouvre mon Classeur.
Je me place sur la feuille que je souhaite envoyer.
Je vais dans FILE > SENT TO > MAIL RECIPIENT > SENT THE CURRENT SHEET AS THE BODY MESSAGE
et il m'envoi le contenu de ma feuille dans le corps du texte.
Comment faire cela avec une macro ?
J'ai essayer d'enregistrer mes actions, mais rien..
Merci pour votre aide
Bonjour
Essaie avec ce Code dans un Module
Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = "amadeus-09@wanadoo.fr"
Destinataires(2) = "marc.defache@gmail.com"
Destinataires(3) = "Destinataire3@domaine.fr"
Sujet = "Envoi Facture"
AccuseReception = True
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Recap").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End SubCordialement
Merci pour votre aide.
Néanmoins, cela envoi en pièce jointe la feuille concernée.
Je souhaite avoir ma feuille (selection) dans le corps du message texte (Outlook).
Une autre idée ?
Sinon, avec cette ligne, je peux copier ma selection dans une image.
Worksheets(Sheet1).Range("A1:N10").CopyPicture xlScreen, xlBitmap
Mais je n'arrive pas le faire coller quelque part..
Bonjour, je relance le sujet car j'ai le même probléme.
Par avance merci.