Envoi feuille excel par mail

  • Initiateur de la discussion Initiateur de la discussion DOCOCHE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

DOCOCHE

Guest
Bonjour,

Je souhaite créer une macro me permettant d'envoyer une plage de feuille excel par mail à une adresse fixe.

Si quelqu'un peut m'aider, je l'en remercie vivement.

EXCEL 2003 - MOZILLA THUNDERBIRD
 
Dernière modification par un modérateur:
Re : Envoi feuille excel par mail

Bonsoir DOCOCHE et Bienvenue sur XLD,

En bas de cette page, dans les cinq discussions similaires, tu devrais déjà trouver quelques éléments de réponses (et pareil sur les discussions issues de ces fils).

Bonne recherche et soirée.

Jean-Pierre
 
Re : Envoi feuille excel par mail

Suite au message de Docoche, j'ai regardé sur le forum et sur le net, car je me posais aussi cette question,

Alors, j'ai trouvé ce code :

Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub

Il fonctionne sauf que je voudrai rajouter un message dans le corps de e-mail,

J'ai rajouté ceci dans le code (suite à mes recherches):

Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
Body:="texte", _
ReturnReceipt:=True
End Sub

mais le code ne fonctionne plus,

Avez-vous une idée pour m'aider à avancer ?

Merci,
 
Re : Envoi feuille excel par mail

Par cette commande il est impossible de rajouter un texte dans le corps du mail.

Si tu utilise outlook aucun probleme :

Sub Envoi_mail()
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String

ActiveWorkbook.Activate

Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.To = "TOTO@wanadoo.fr"
.CC = ""
.Subject = "Envoi du mail 2008"
.Body = "texte texte"
.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

'fait partir le mail
.Send
'met le mail dans les brouillons
'.Display

End With

End Sub
 
Re : Envoi feuille excel par mail

J'ai trouvé cela :

Sub Envoi()
EnvoiEmail Adresse:=Range("B1"), _
Objet:=Range("B2"), _
Corps:=Range("B3"), _
PJ:=Range("B4"), _
Bcc:=Range("B6")
End Sub

Sub EnvoiPlageParCopierColler()
' copie la plage à envoyer
Range("A16:I36").Copy
' le collage se fait dans la procédure EnvoiMail
' si l'argument Collage est défini à True
EnvoiEmail Adresse:=Range("B1"), _
Objet:=Range("B2"), _
Corps:=".... Texte à envoyer .... :", _
Bcc:=Range("B6"), _
Collage:=True
End Sub

Cela fonctionne mais je ne suis pas entièrement satisfait.
Pas de problème avec Thunderbird en envoyant en HTML seulement mais la mise en page n'est pas conservée avec Outlook. Y-a-t-il une solution ?
Merci
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
12
Affichages
649
  • Question Question
Réponses
5
Affichages
642
Réponses
2
Affichages
171
Réponses
5
Affichages
487
Réponses
3
Affichages
211
Retour