Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Envoyer feuil par mail.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Proz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

Proz

XLDnaute Occasionnel
😉 Bonjour à tous,

Sauriez vous comment faire pour envoyer une feuil ou son contenu par mail. Juste la Feuil ou son son contenu, pas le classeur si c'est possible.😀
 
Trier par date Trier par votes
Re : Envoyer feuil par mail.

Re-,
dans le code de la feuille :

Code: 
Private Sub CommandButton1_Click()
Call envoi_mail
End Sub

et dans un module standard :

Code: 
Sub envoi_mail()
répertoireAppli = ActiveWorkbook.Path
Sheets("TDGM").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "\Absences Mosson-Hôp Fac.xls"
ActiveWindow.Close
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("destinataires").Select
Range("A11").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("A2").Value
msg.Body = Range("A5").Value & Chr(13) & Chr(13) & Range("A8").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=répertoireAppli & "\Absences Mosson-Hôp Fac.xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub
 
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

😉

C'était d'une simplicité que j'aurais cherché pendant des heures, je n'aurais pas trouver. Tout fonctionne.
Pourquoi faire simple quand on peut faire compliqué😉

Sinon j'ai une dernière question peut-on cacher la feuil destinataire et envoyer le mail? J'ai essayé mais fonctionne pas.
Et enfin le message d'alerte qui dit le programme essaye d'envoyer......, peut on éviter l'affichage tout en validant l'envoie?🙄 Ca fait 2 en fait?😱
 
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

Re-,

1/pour cacher la feuille destinataires, pas de soucis :

dans le code du classeur, à l'ouverture, la feuille sera masquée :

Code: 
Private Sub Workbook_Open()
Sheets("Destinataires").Visible = False
End Sub

dans le code de la macro :
en début :

Code: 
Sub envoi_mail()
Application.ScreenUpdating = False
Sheets("Destinataires").Visible = True
.....
.....
Sheets("Destinataires").Visible = False
Application.ScreenUpdating = True

Pour ce qui est de la confirmation de l'envoi du mail, je crois qu'il existe un petit utilitaire, nommé ClicYes, mais ne l'ayant jamais utilisé, je ne saurais te dire plus..
Peut-être que quelqu'un pourrait venir à ton secours
 
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

😕

Pour les deux premieres lignes cé ok mais les 2 dernières, j'ai sauté deux lignes mais marche pas

Code: 
Sub envoi_mail()
Application.ScreenUpdating = False
Sheets("Destinataires").Visible = True
.....
.....
Sheets("Destinataires").Visible = False
Application.ScreenUpdating = True
 
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

Re-,
j'avais pas bien expliqué....😱
Tu colles les deux premières en début de code, et les deux dernières juste avant le End Sub (les points signifient ton code)

Code: 
Sub envoi_mail()
Application.ScreenUpdating = False
Sheets("Destinataires").Visible = True
.....
.....
....
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Destinataires").Visible = False
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

😀

Désolé, pas assez attentif.
En tout cas je te remercie pour ce code, ton aide et ta patience (car je sais qu'il en a fallu)😉

Bon, reste l'inconvénient de ce message d'alerte, car il l'envoie à 8 pers, alors imaginez le gars en face qui n'a pas de patience (il prend la machine et pette un plomb...).

Sinon bhbh, je te remercie pour tout encore une fois...😀
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

imaginez le gars en face qui n'a pas de patience (il prend la machine et pette un plomb...).
Cliquez pour agrandir...

Et en plus, le gars pour qui tu fais cela n'aurait pas de patience....😀
Il n'a plus qu'à appuyer sur un bouton, puis 8 fois sur le message d'alerte, quand je trouve un boulot comme ça, je signe.......😀😀

Plus sérieusement, recherche dans gogeule le mot ClickYes, il y a un petit utilitaire pour faire son boulot à sa place.....😉
 
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

🙂

Ca fonctionne pas et depuis que je l'ai installé outlook me dit que je n'ai pas les autorisations nécessaires...Enfin bref, je l'ai desinstallé mais tjrs ce fichu message.

Edit: no panique, il fallait juste redémarrer le PC.
Sinon, je suis allé faire un tour sur google et il dise qu'il faut un code et l'adapté à ce petit utilitaire ou en fonction du moins.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

Re-,
ci joint un autre exemple d'envoi mail via Outlook, qui, normalement, ne devrait pas générer de message de la part d'Outlook.
Si tu peux tester, car pour ma part, je n'utilise pas Outlook, et donc, je ne peux garantir le résultat.
Code issu d'un mix entre la procédure de jboigontier, et d'un autre code trouvé sur le site de MSOutlook.
Teste et dis-moi
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

😀

Salut,

Edit:
Et sur le mien ça bloque ici
If FichierXls.Saved = True Then
Fichier = FichierXls.FullName
FichierXls.Close
Sheets("destinataires").Select
Cliquez pour agrandir...

Il m'affiche La méthode select de la classe Worksheet a échoué.

Et depuis le commandbutton, il me dit fonction ou sub non définit

Je suppose qu'il faut modifier l'appel depuis le commandbutton mais comment?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

🙂
Salut bhbh,

Avec feuil demasquée, ca bloque ici:
Code: 
-----------------
Function SendMailCDO(Sender As String, Receiver As String, _
Subject As String, BodyText As String, _
Optional BodyHTML As String, _
Optional Cc As String, _
Optional Bcc As String, _
Optional Attach1 As String)
Dim Cdo_Message As New CDO.Message
-------------------

Edit: a partir du bouton cela bloque ici:
Private Sub CommandButton1_Click()
Call envoi_mail
End Sub
Cliquez pour agrandir...
Quel appel dois je faire?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

Bonjour,
je suppose que le message d'erreur est :

Code: 
Erreur de compilation
Type défini par l'utilisateur non défini

Si ce message, c'est que tu n'as pas ajouté la référence "Microsoft CDO for Windows 2000 Library" comme préconisé dans le fichier.
Si ce n'est pas cela, quel message d'erreur?
 
Vote positif 0 Vote négatif
Re : Envoyer feuil par mail.

😀

Exact, impardonable je suis. J'ai activé.
Ca bloque à ce niveau:
Code: 
--------------------------
, "Fichier à Attacher introuvable !"
            End If
        End If
  [B][COLOR="Red"]  .Send[/COLOR][/B] -------------------------> ici bloque, affiche message
End With
-------------------------
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Rechercher code EAN
Réponses
5
Affichages
347
fanfan38
  • Question Question
Microsoft 365 probleme enregistrement de 2 fichiers
Réponses
3
Affichages
123
Nain porte quoi
S
  • Question Question
Microsoft 365 Formule d'ancienneté
Réponses
6
Affichages
176
bakerman2
B
  • Question Question
Microsoft 365 Macro vba envoi par mail
Réponses
9
Affichages
308
Nain porte quoi
H
  • Question Question
Autres Saisi des absences des mois sur un seul feuil
Réponses
5
Affichages
511
Lolote83
L
G
  • Question Question
Microsoft 365 insertion d'une ou plusieurs pièces jointe dans un mail via VBA
Réponses
6
Affichages
497
GG Delcroix
G
  • Question Question
XL 2019 Recherche et somme selon plusieurs conditions entre deux feuilles
Réponses
14
Affichages
542
Atiom
C
  • Résolu(e)
XL 2019 Sélection en cascade ou Groupe
Réponses
12
Affichages
356
ciarab8442
C
  • Question Question
Microsoft 365 Recherche info pour remplir fiche
Réponses
4
Affichages
379
pompaero
S
  • Question Question
XL 2021 Lien mail hypertexte fonctionnel
Réponses
4
Affichages
321
sfconstant
S
  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
664
patricktoulon
L
  • Question Question
Microsoft 365 Supprimer dans une adresse mail
Réponses
6
Affichages
175
Nain porte quoi
E
  • Question Question
Microsoft 365 heure positif ou negatif
Réponses
11
Affichages
432
ebe
E
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
524
tnion
T
C
  • Question Question
Microsoft 365 gestion commerciale
Réponses
0
Affichages
121
C'est Génial
C
G
  • Question Question
Microsoft 365 Catalogue API Insee : comment l'utiliser
2
Réponses
27
Affichages
2 K
Gwendoline
G
P
  • Question Question
Microsoft 365 Création d'un fichier Excel pour gérer le bénévolat valorisé
Réponses
8
Affichages
266
Nain porte quoi
S
  • Question Question
Microsoft 365 Recherche data par ID
Réponses
7
Affichages
249
cathodique
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
286
PR.
P
C
  • Question Question
XL 2021 Recherche données dans une colonne...
Réponses
3
Affichages
331
gbinforme
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…