Envoyer un onglet par mail [Fermé]

Signaler
Messages postés
2
Date d'inscription
mercredi 8 février 2017
Statut
Membre
Dernière intervention
9 février 2017
-
Messages postés
54
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
15 décembre 2020
-
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

3 réponses

Messages postés
53323
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
24 février 2021
15 344
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.
Messages postés
2
Date d'inscription
mercredi 8 février 2017
Statut
Membre
Dernière intervention
9 février 2017

Merci beaucoup Raymond
mais je pensais qu'avec un petit programme VBA cela pouvez etre possible.

Cordialement,
Thierry
Messages postés
53323
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
24 février 2021
15 344 >
Messages postés
2
Date d'inscription
mercredi 8 février 2017
Statut
Membre
Dernière intervention
9 février 2017

Tu as lu ma parenthèse ?
(sauf peut-être par macro, je suppose)

Tu sais ce qu'est une macro ?
C'est un "petit programme VBA"
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 354
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
Messages postés
54
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
15 décembre 2020
1
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"