macro pour envoi d'une page xls par mail

[Emryck]

Bonjour à tous,

il m'arrive de remplir un certain nombre de fiches crées sous excel et de devoir les envoyer par mail sous format "page" et non pas classeur joint (afin que ces personnes ne puissent pas modifier le contenu). J'aimerai connaitre le moyen d'automatiser cette tâche sachant que l'adresse mail est spécifiée sur la page à envoyer.

Merci de votre aide !

 

[Le rital]

Bonjour

Le rital
-------------------------------------------
Envoie la feuille 1 par Mail

Sub EnvoiFeuilMail()
Dim Wbk As Workbook

ThisWorkbook.Sheets("Feuil1").Copy
Set Wbk = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "dj@free.fr", "Feuille du contrat à signer", True
'true pour un avis de reception

Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub

 

[alain]

bonsoir a tous

tu peux confirmer que sa marche chez toi car j 'ai essaye et sa ne marche pas