Envoi d'email d'un classeur

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

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
Rechercher des sujets similaires à "envoi email classeur"