E mail d'une feuille active en fichier joint

  • Initiateur de la discussion Marc
  • Date de début
M

Marc

Guest
Salut
je cherche comment sauver une feuille active en utilisant le contenu de 2 cellules et l'envoyer en fichier joint à une adresse x.x@x.fr
par un simple clic

merci
@md
 
T

Ti

Guest
Pour le problème de la sauvegarde de la feuille active, il faudrait savoir ce que contiennent tes 2 cellules.

Pour l'envoi du fichier en tant que pièce jointe, tu peux utiliser Sendmail :

Function Test_Mail() As Boolean
Test_Mail = Application.MailSystem <> xlNoMailSystem
End Function

Sub Envoie_Mail()
If Test_Mail = True Then _
ActiveWorkbook.SendMail Recipients:="xx@xx.fr"
End Sub

il faut bien sûr que l'adresse mail donnée soit valide, sinon tu auras une erreur.

Tu as également la possibilité d'utiliser EnvelopeVisible mais je ne te le conseille pas, c'est source de complications et l'envoi n'est pas automatique, sauf à bricoler avec des SendKeys.
 

Discussions similaires

Statistiques des forums

Discussions
302 252
Messages
2 001 863
Membres
215 376
dernier inscrit
KomsK