E mail d'une feuille active en fichier joint

[Marc]

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

 

[Ti]

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.