XL 2013 Macro pour envoyer un classeur (et non une seule feuille) par email

[yml]

Bonjour,

J'ai une macro qui permet d'enregistrer et d'envoyer une feuille unique par email.

J'aimerais modifier cette macro pour envoyer l’intégralité de mon classeur, savez vous comment je peux faire ?


Voici ma macro actuel :

Sub ENVOYER_EMAIL()

Dim NouveauClasseur As Workbook
Dim Destinataire As String
Destinataire = "mon@email.com"
Dim Objetmessage As String
Objetmessage = "object de lemail"


ActiveWorkbook.Save


Application.ScreenUpdating = False


ThisWorkbook.Sheets("MA FEUILLE").Copy
Set NouveauClasseur = ActiveWorkbook
NouveauClasseur.SaveAs Objetmessage

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = Destinataire
myItem.Subject = Objetmessage
myItem.Body = "le corp du mail"
myItem.attachments.Add ActiveWorkbook.FullName
myItem.Send
Set ol = Nothing

Application.DisplayAlerts = False
With NouveauClasseur
.ChangeFileAccess xlReadOnly
Kill .FullName
Application.DisplayAlerts = True
.Close False
End With
End Sub

Merci d'avance pour votre aide.

YML

 

[Lone-wolf]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Bonjour YML,

Il faut mettre la macro dans un classeur vierge, ensuite

Dim Fichier As String

'Si les classeurs sont dans le même dossier
Fichier = ThisWorkbook.Path & "\Classeur à envoyer.xls"

'Sinon
Fichier = "C:\Users\YML\Mes Documents\Classeur à envoyer.xls"

.AttachementsAdd Fichier

 

[yml]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

bonjour Lone-wolf,


Le classeur a envoyer est celui dans lequel se trouve la macro.

En gros, l'utilisateur modifie le classeur, puis il lance la macro pour enregistrer et envoyer le classeur par email.

YML

 

[Lone-wolf]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Re,

tu ne peux pas envoyer un classeur ouvert. Et tu as bien lu mon précédent message?

 

[yml]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

J'ai appliqué ta modification, ça marche très bien.

Étonnamment, ca arrive bien a envoyer le fichier actuellement ouvert.

Merci beaucoup pour ton aide.

Voici le code final.

Sub ENVOYER_EMAIL()

Dim NouveauClasseur As Workbook
Dim Destinataire As String
Destinataire = "xxx@xxxx.com"
Dim Objetmessage As String
Objetmessage = "xxxx"

'On se place sur la feuille principale
Sheets("ANALYSE CA").Select

'On enregistre le classeur
ActiveWorkbook.Save


Application.ScreenUpdating = False


Dim Fichier As String

'Si les classeurs sont dans le même dossier
Fichier = ThisWorkbook.Path & "\Tableau Analyse CA.xlsm"

Set NouveauClasseur = ActiveWorkbook
NouveauClasseur.SaveAs Objetmessage

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = Destinataire
myItem.Subject = Objetmessage
myItem.Body = "Bonjour, voici le tableau analyse CA" 'fichier en cours d'utilisation envoyé en attaché:
myItem.attachments.Add Fichier
myItem.Send
Set ol = Nothing

Application.DisplayAlerts = False
With NouveauClasseur
.ChangeFileAccess xlReadOnly
Kill .FullName
Application.DisplayAlerts = True
.Close False

'Fermer Excel
Application.Quit


End With
End Sub

 

[Lone-wolf]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Re,

une autre façon de faire

Option Explicit

'Activer la référence Outlook xx.0 Object Library

Sub Envoi_Mail()
Dim PremAdresse, Sujet, CrMessage, Chemin, Fichier As String
Dim OlApp As Outlook.Application
Dim OlMail As MailItem

With Feuil1
PremAdresse = .Range("a2")
Sujet = .Range("b2")
CrMessage = .Range("c2")
Fichier = .Range("d2")
End With

Chemin = ThisWorkbook.Path & "\"

Set OlApp = CreateObject("Outlook.Application")
Set OlMail = OlApp.CreateItem(olMailItem)
 With OlMail
      .To = Premadresse
      .Subject = Sujet
      .Body = CrMessage
      .Attachments.Add Chemin & Fichier
      .Display
   End With
    Set OlMail = Nothing
    Set OlApp = Nothing
End Sub

 

[Calvus]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Bonjour à tous,

Dim Fichier As String

[/QUOTE]

Tu vois Lone-wolf, toi aussi tu utilises des petites culottes à ficelle !!

:p:p:p:p:p:p

Bonne journée ! ;):):)

 

[Lone-wolf]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email



Gloire à toi Calvus pleins de cheveux!

 

[Calvus]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Re,



D'ailleurs, il y a une erreur dans ton code, si tu permets...

Tu aurais dû mettre :

Dim Fessier As String

A plus !!!

 

[DoubleZero]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Bonjour à toutes et à tous,

Discussin signalée...

A bientôt

 

[Lone-wolf]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Bonjour DoubleZero

Du calme, on rigole

Je suis quelqu'un ouvert d'esprit...(mais pas sain )

 

[DoubleZero]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Re-bonjour,

... tu ne peux pas envoyer un classeur ouvert...

Avant que la discussion ne sit supprimée...

Un code de (j'ai la mémoire qui flanche...)...

Option Explicit
Sub Fichier_actif_mail()
' référence "Microsoft Office xxxx Object Library" activer
    Dim appoutlook As Outlook.Application
    Dim message As Outlook.mailitem
    Dim myrecipient As Object
    Set appoutlook = CreateObject("outlook.application")
    Set message = appoutlook.createitem(olmailitem)
    With message
        .Subject = "Macro pour envoyer ce fichier (et non une seule feuille) par email"
        .body = "Bonjour," & Chr(10) & Chr(10) & "Valeurs à la date du " & Date & Chr(10) & Chr(10) & "Cordialement."
        .bodyformat = olformatHTML
        .Recipients.Add ("toto@live.fr") ' adresse adapter
        .attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
        .send
    End With
    appoutlook.Quit
    Set appoutlook = Nothing
End Sub

A bientôt

 

[Calvus]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Bonsoir,

Assis, tranquillement sur mon piton rocheux,
J'attendais, que ce p'tit baudet, au corps laineux
Pointa son nez, comme toujours, râlant et pestant
Criant mais sans qu'on l'entendit, montrant ses dents.

D'une caresse, je le calmai et le rassurai,
Lui dit, qu'à vouloir séparer du grain l'ivraie,
Il ne ferait que réveiller, autour de lui
Les fureurs troublantes du loup et du poisson,

Qu'il devait chercher ce que cachait son ennui
Et cesser de se prendre pour un canasson !
Tout penaud, il s'assit, écouta, s'endormit,
Et rentra vite chez lui, finir son bol de son...

 

[Lone-wolf]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

Bonjour Calvus, 00

Très heureux de savoir qu'il y a encore des poètes dans ce bas monde

 

[Lone-wolf]

Re : Macro pour envoyer un classeur (et non une seule feuille) par email

With message
.Subject = "Réponse"
.body = "Bonjour," & Chr(10) & Chr(10) & "Envoyez moi la paye plutôt!" & Date _
& Chr(10) & Chr(10) & "Fauché comme le blé"
.bodyformat = olformatHTML
.Recipients.Add Direction
.attachments.Add ChèqueEnBlanc
.send
End With
appoutlook.Quit
Set appoutlook = Nothing
End Sub

En souhaitant que celui-ci suivra