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

Staple1600

XLDnaute Barbatruc

• 1 Juin 2018

• #2

Bonsoir le fil, le forum

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 1 Juin 2018

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Juin 2018

• #4

Re

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

 

Dernière édition: 1 Juin 2018

Vote positif 0 Vote négatif

A

Aimedija

XLDnaute Nouveau

• 4 Juin 2018

• #5

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,

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 4 Juin 2018

• #6

Bonjour Aimedija, Jean Marie

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

VB:

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

 

Dernière édition: 4 Juin 2018

Vote positif 0 Vote négatif

A

Aimedija

XLDnaute Nouveau

• 4 Juin 2018

• #7

Bonjour Jean Marie,

Ton code est extra merci,

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 4 Juin 2018

• #8

Re

@Aimedija :

Bonjour Jean Marie, Ton code est extra merci

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

A

Aimedija

XLDnaute Nouveau

• 4 Juin 2018

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juin 2018

• #10

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?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 4 Juin 2018

• #11

Bonsoir Jean Marie

Non, pas testé.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juin 2018

• #12

Re,

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 4 Juin 2018

• #13

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é.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juin 2018

• #14

Re

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 4 Juin 2018

• #15

Re

@Staple1600

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

 

Vote positif 0 Vote négatif