envoyer un onglet par mail Fermé

Question

bonjour à tous,
J'essai de mettre en place un planning d'absence qui lui est composé de 12 onglets (Janvier... à Décembre).
Je souhaiterai intégrer un bouton "Envoyer Mail"  sur chaque onglets afin de pouvoir transmettre à la fin du mois les presences et absences de mon service.
Je ne sais pas si cela est realisable, c'est pour cela que je fais appel à des experts.
Cordialement,
Thierry

Raymond PENTIER · Answer

Bonjour.
Non, ce n(est pas réalisable (sauf peut-être par macro, je suppose) ! 
Il faut copier chaque onglet dans un nouveau classeur, et expédier ce classeur.

gbinforme · Answer

Bonjour, 
magalette78  tu mets ce code dans un module et tu l'affectes à ton bouton et tu auras un message prêt à être envoyé avec ta feuille.
Public Sub envoi_message()
    ActiveSheet.Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWorkbook.Close False
End Sub
 
@Raymond bonjour à toi et C'est un "petit programme VBA"
--
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry

supraman46 · Answer

tu peux activer cette macro via un bouton de commande

Sub email()

Sheets("Graph").Select 'met le nom de ta page a place de GRAPH
Cells.Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
      .Introduction = 'Ecrire ton texte d'introduction' ou l'inscrire dans une cellule et inscrire range("ta cellule")
       .Item.To = Range("A7") 'les adresses de courriel'
      .Item.Subject = Range("B1") 'ton sujet'
      .Item.send
   End With

End Sub

Comme dirait Raymond Pentier, "PETIT PROGRAMME VBA"

Envoyer un onglet par mail

3 réponses