Macro : Pièces jointes

bonjour à tous,

J'ai un problème sur une macro j'ai besoin d'aide !!!

Je voudrais joindre une feuille de calcul (feuil2) à un mail et quelle apparaissent dans pièces jointes, est-ce possible?

Je vous join un fichier avec mon code et mes explications un peu plus détaillés.

Merci de votre aide !!!!

-- 06 Avr 2011, 20:49 --

Je vous aurez pausé une colle????

Bonjour.

Effectivement le mieux c'est de passer par la création d'un nouveau classeur que tu supprime après l'avoir envoyé par exemple

Sheets("Feuil2").Copy

Set fich = ActiveWorkbook

Application.DisplayAlerts = False

'ici l'envoi de la pièce joinrte à voir suivant ta messagerie

fich.Close

Application.DisplayAlerts = True

Bonjour,

J'ai essayé avec ton code mais ça ne fonctionné pas.

En revanche j'ai trouvé un peu de mon bonheur sur ce site

Edit Dan : supprimé lien publicitaire

Mais j'arrive pas à l'adapter a mon cas, pck la feuille que je voudrai envoyer est dans un autre classeur différente de celle ou je lance la macro, et ici ça me met en pièce jointe la page 2 du classeur initial. et elle s'appelle pas que feuil2, sa dépend !!!

Je voudrais copié la feuille active du classeur ouvert par la macro, qu'il me l'enregistre sous sheet2.xls comme le code ci dessous par exemple.

ThisWorkbook.Sheets(2).Copy

    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
        "Sheet2.xls"

    With olMail
        .Recipients.Add "You@me.com"
        .Recipients.Add "Me@You.com"
        .Recipients.Add "Him@Her.com"
        .Subject = "That one sheet"
        .Body = "Here you go" & vbCrLf
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With

    ActiveWorkbook.Close False

    Kill ThisWorkbook.Path & "\" & "Sheet2.xls"

tu as une idée ?

-- 07 Avr 2011, 18:32 --

En fait c'est bon ça marche, il fallait que je mémorise la feuille concerné.

Dim VariableFeuille As String
VariableFeuille = ActiveSheet.Name
'traitement
Sheets(VariableFeuille).Activate

Merci !!