Corps de texte dans message automatique

Bonjour

J'ai une maccro pour l'envoi automatique d'une feuille excel.

Je souhaiterai pouvoir modifier le corps de texte (pour être plus courtois)

Que la maccro fonctionne même si la feuille est cachée

Avez vous des idées ?

Sub EnvoiPage()

Dim Destinataires(3) As String, Sujet As String

Dim AccuseReception As Boolean

'Modifier les mails des destinataires

Destinataires(1) = "le mail à envoyer"

Sujet = "Effectif DAMA"

AccuseReception = True

'Nom de la feuille

ThisWorkbook.Sheets("Impression").Copy

ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception

ActiveWorkbook.Close False

End Sub

Bonjour,

la fonction ActiveWorkbook.SendMail a été crée pour un envoie simple et rapide du classeur actif, elle accepte trois paramètres et vous les utilisez, donc point de paramètre pour le "corps" du message.

Pour faire ce que vous demandez, je pense (mais pas sur !) qu'il faut utiliser un autre code dans lequel vous allez pouvoir "tout" paramétrer.

Sur ce forum il y a beaucoup de sujet d'envoie de mail par Excel.

@ bientôt

LouReeD