Envoyer un onglet par mail
magalette78
Messages postés
2
Statut
Membre
-
supraman46 Messages postés 57 Statut Membre -
supraman46 Messages postés 57 Statut Membre -
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
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:
- Envoyer un onglet excel par mail
- Liste déroulante excel - Guide
- Excel trier par ordre croissant chiffre - Guide
- Gmail envoyer un mail - Guide
- Word et excel gratuit - Guide
- Rouvrir onglet fermé chrome - Guide
3 réponses
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.
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.
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.
@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
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
tu peux activer cette macro via un bouton de commande
Comme dirait Raymond Pentier, "PETIT PROGRAMME VBA"
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"
mais je pensais qu'avec un petit programme VBA cela pouvez etre possible.
Cordialement,
Thierry
(sauf peut-être par macro, je suppose)
Tu sais ce qu'est une macro ?
C'est un "petit programme VBA"