VBA excel, générer un mail avec comme piéce jointe un feuille d'un fichier xls

[Aimedija]

Bonjour,

je débute à coder sur VBA excel et j'ai pu récupérer le code ci-dessous afin d'envoyer des fichiers en pièces jointes. Seriez vous à même de m'aider à modifier ce code afin qu'il envois uniquement une feuille désigner d'un fichier xls? Un grand merci d'avance

Sub SendEMailwithAttachments()

Dim ol As Object, myItem As Object

Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)

myItem.To = "Toto@toto.com"
myItem.Subject = "Test Mail"
myItem.Body = "Hello Word." & Chr(13) & Chr(13) & "Bye All"

Set myAttachments = myItem.Attachments
myAttachments.Add "C:\mes documents\Toto1.xls"

MsgBox "Now sending to " & myItem.To
myItem.Send
Set ol = Nothing

End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@Aimedija
Une question:
Quelle est ta version d'Excel?

 

[Lone-wolf]

Bonsoir Aimedija et bienvenue sur XLD

Il faut ajouter ceci

Sheets("Staple1600").Activate (à modifier bienentendu par le nom de la feuille que tu veux copier)
Activesheet.Copy
chemin = "C:\mes documents\"
nom = Activesheet.Name & ."xls"
Activesheet.SaveAs Filename:= chemin & nom FileFormat:=xlExcel8

myAttachments.Add chemin & nom

 

[Staple1600]

Re

@Lone-wolf
C'est surtout que selon la version d'Excel, pas besoin de macro.
Une QAT personnalisée suffira.

 

[Aimedija]

Bonjour Staples 1600,

Je dispose de la version 2013, mais j'aurais vraiment besoin de le faire sous macro. merci

Bonjour Lone Wolf,

Merci pour le code mais j'ai un peu de mal à l'intégrer au premier étant donner que des sections se répètes, pourrais tu essayer de mieux m'éclairer?

merci d'avance,

 

[Lone-wolf]

Bonjour Aimedija, Jean Marie

@Aimedija: tu copie une feuille oui, mais une fois enregistré ça devient un classeur.

Option Explicit

Sub SendEMailwithAttachments()
Dim ol As Object, myItem As Object
Dim chemin$, nom$

    Application.ScreenUpdating = False
    Set ol = CreateObject("outlook.application")
    Set myItem = ol.CreateItem(olMailItem)

    'Il faut d'abord activer la feuille à envoyer
    ActiveSheet.Copy

    chemin = "C:\Users\" & Environ("UserName") & "\Documents\"
    nom = "Toto1.xls"

    ActiveSheet.SaveAs Filename:=chemin & nom, FileFormat:=xlExcel8
    ActiveWorkbook.Close True

    myItem.To = "Toto@toto.com"
    myItem.Subject = "Test Mail"
    myItem.Body = "Hello Word." & Chr(13) & Chr(13) & "Bye All"

    Set myAttachments = myItem.Attachments
    myAttachments.Add chemin & nom

    MsgBox "Now sending to " & myItem.To
    myItem.display
    Set ol = Nothing

End Sub

 

[Aimedija]

Bonjour Jean Marie,

Ton code est extra merci,

 

[Lone-wolf]

Re

@Aimedija :

Bonjour Jean Marie, Ton code est extra merci

What?? Sans vouloir offenser Jean Marie, c'est Lone-wolf qui a mis le code.

 

[Aimedija]

Toutes mes excuses Lone-Wolf, c'est à toi que je le dois... merci

 

[Staple1600]

Bonsoir le fil, le forum

Aimedija & Lone-Wolf
Juste par hasard est-ce vous testez la manip que je détaillais dans le post#4?

 

[Lone-wolf]

Bonsoir Jean Marie

Non, pas testé.

 

[Staple1600]

Re,

@Lone-wolf
Je me demande bien pourquoi j'ai testé ta macro alors ?
(ah oui! par courtoisie )

 

[Lone-wolf]

Re

@Staple1600

Je viens de tester en inserant le bouton de commande, mais comme j'ignorais l'existance de celui-ci (jamais pris la peine de regarder toutes les commandes qu'il y avaient sur Excel), je ne l'ai jamais utilisé.

 

[Staple1600]

Re

@Lone-wolf
Et alors?
Est-ce que cela fait ce que je crois que cela fait ?

 

[Lone-wolf]

Re

@Staple1600

Ce la fait, ce que je ne veux pas que ça fasse.