Macro pour envoyer une feuille par e-mail

Bonjour,

J'ai un fichier excel avec plusieurs feuilles, j'envoie régulièrement une feuille de ce fichier après mise à jour par internet, est-il possible d'automatiser cette opération ?

Merci d'avance,

Salut le forum

Un code récupéré sur le net de Kiki29, pour envoyer la feuille active.

Via CDO, en cochant sous VBE Outils / Références "Microsoft CDO for Exchange xxxx Library".

Option Explicit

Sub Tst()
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim Temp As String
Dim CdoMessage As Object
Dim Fichier As String

    Set Sourcewb = ActiveWorkbook
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook

    Temp = ThisWorkbook.Path & Application.PathSeparator & "Toto.xls"

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With

    Destwb.SaveAs Temp
    Fichier = Destwb.Path & Application.PathSeparator & Destwb.Name
    Destwb.Close
    Application.DisplayAlerts = True

    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx@wanadoo.fr"
        .To = "yyyyy@hotmail.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With

    Application.ScreenUpdating = True

    Set CdoMessage = Nothing
    Kill Fichier
End Sub

Mytå

Bonjour,

Merci pour votre réponse mais il me manque des éléments dans la procédure, c'est quoi CDO ? ou se trouve VBE outils ?

Merci d'avance,

Re le forum

MCJ, fait ALT+F11 tu vas te retrouver dans l'éditeur VBE

Dans Outils > Références coche Microsoft CDO for Exchange xxxx Library

Tu colles ensuite le code de la macro dans un module standard.

Insertion > Module (Il va avoir un nom du style Module x)

Mytå

Bonjour,

Je n'y arrive pas, pouvez m'envoyez un fichier excel avec la macro et que je n'ai plus qu'à copier coller en actualisant avec mon fichier.

Merci d'avance,

Re les amis(ies)

Je ne vois pas l'utilité du fichier mais le voilà quand même : Feuille par E-mail

Mytå

Bonjour,

Désolé mais cela ne fonctionne pas, pourriez-vous svp me faire parvenir la macro exacte afin que je puisse faire un "copier coller" avec les données suivantes :

NOM DU FICHIER EXCEL : ESSAI.xls

feuille1 à envoyer à l'adresse suivante : x@cegetel.net

feuille 2 à envoyerà l'adresse suivante : y@cegetel.net

feuille 3 à envoyer à l'adresse suivante : z@cegetel.net

je n'aurai ainsi plus quà remplacer le nom de fichier, les noms de feuilles et les adresses.

Merci d'avance,