Sujet Précédent Sujet Suivant

Envoyer un onglet par mail

Fermé
magalette78 Messages postés 2 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 9 février 2017 - 8 févr. 2017 à 15:48
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - 10 févr. 2017 à 02:14
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
A voir également:

3 réponses

Réponse 1 / 3
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096
8 févr. 2017 à 16:24
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.
0
magalette78 Messages postés 2 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 9 février 2017
9 févr. 2017 à 19:41
Merci beaucoup Raymond
mais je pensais qu'avec un petit programme VBA cela pouvez etre possible.

Cordialement,
Thierry
0
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096 > magalette78 Messages postés 2 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 9 février 2017
9 févr. 2017 à 22:20
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"
0
Réponse 2 / 3
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
9 févr. 2017 à 22:37
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
0
Réponse 3 / 3
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
Modifié par supraman46 le 10/02/2017 à 02:16
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"
0