Réaliser une macro VBA permettant d'envoyer un classeur Excel par mail

Fermé
abourakba Messages postés 77 Date d'inscription samedi 18 mai 2013 Statut Membre Dernière intervention 20 janvier 2023 - Modifié le 17 janv. 2019 à 00:37
 G5 - 25 juil. 2023 à 11:28
Bonsoir,

Je cherche à faire une macro via VBA sur mon classeur Excel qui permet d'envoyer unclasseur ouvert par mail en tant que pièce jointe à des destinataires et à d'autres personnes en copie.

- Objet : Suivi_de_la_productivité_(Date) ==> Cette date doit être celle de la journée en cours.

- Destinataires :

à : 3 adresses email
cc : une seule adresse email

- corps du message :
===========================
Bonjour,
Veuillez trouver ci-joint le fichier Suivi_de_la_productivité_(Date)
Signature,
Erroudani Ali

==========================
Quelqu'un peut m'aider à réaliser ce prgm ?

D'avance Merci:)

Bonne soirée
A voir également:

2 réponses

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 298
17 janv. 2019 à 08:24
Bonjour,

A tester

Ne pas oublier de cocher la référence MICROSOFT OUTLOOK xx.0 OBJET LIBRARY

Sub envoiMail()
  Dim Fichier As Variant
  Fichier = "Chemin de ton classeur" 'à modifier ex: "C:\Bureau\dossier\Classeur.xlsx
  Dim MaMessagerie As Object
  Dim MonMessage As Object
  Set MaMessagerie = CreateObject("Outlook.Application")
  Set MonMessage = MaMessagerie.createitem(0)
  
  MonMessage.SentOnBehalfOfName = " ton adresse mail" ' à modifier
  MonMessage.to = "aa@bb.com; bb@bb.com; cc@bb.com" ' à modifier
  MonMessage.CC = "dd@dd.com"
  MonMessage.Attachments.Add Fichier
  MonMessage.Subject = "Suivi_de_la_productivité_" & Application.Text(Date, "ddmmyyyy")
      
  Contenu = "Bonjour,"
  Contenu = Contenu & Chr(10) & Chr(13)
  Contenu = Contenu & "Veuillez trouver ci-joint le fichier Suivi_de_la_productivité_" & Application.Text(Date, "ddmmyyyy")
  Contenu = Contenu & Chr(10) & Chr(13)
  Contenu = Contenu & "Signature,"
  Contenu = Contenu & Chr(10) & Chr(13)
  Contenu = Contenu & "Erroudani Ali "
          
  MonMessage.body = Contenu
  MonMessage.send
  Set MaMessagerie = Nothing
  MsgBox "Votre Mail a bien été envoyé avec la P.J. "
End Sub
1

Merci beaucoup pour votre VBA. J'en ai profité aujourd'hui merci.  

0