Envoi d'email d'un classeur

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
LEFEBVRE T
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 17 décembre 2018
Version d'Excel : 2013

Message par LEFEBVRE T » 23 janvier 2019, 18:08

Bonjour,

Je viens solliciter votre savoir et votre aide.
Est-il possible d'envoyer le contenu complet d'un classeur par mail?
Je m'explique :
Un classeur toto, contenant plusieurs feuilles (Feuil1, Feuil2 et Feuil3)
Ces 3 feuilles contiennent des informations diverses.
Le fait de cliquer sur une cellule ou bouton (portant l'intitulée de l'adresse email à qui on veut l'envoyer),sur la feuille 3, déclenche la fermeture de ce classeur et l'envoie du classeur complet par mail à l'adresse concernée se trouvant sur cette cellule ou bouton.

Petite précision, la personne devant déclencher l'envoie du Mail, ne fait que contrôler et approuver par la modification d'une cellule la véracité du classeur.

Cordialement
Thierry
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'716
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 23 janvier 2019, 20:29

Bonjour,
Est-il possible d'envoyer le contenu complet d'un classeur par mail?
oui,
voici un exemple,
Sub Mail_workbook_Outlook()
'Nécessite d'activer la référence "Microsoft Outlook Library"
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = "lui@outlook.com"
        .CC = ""
        .BCC = ""
        .Subject = "fichier"
        .Body = "Hello"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
'        .Send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
Vive ces nouvelles saisons qui nous colorent.
isabelle
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message