VBA Macro Excel / Envoyer en PJ un onglet par mail (outlook)

Version imprimable

Bonjour à tous !

Je débute en VBA et je voudrais envoyer par mail un onglet de mon classeur Excel. Cela est-il possible ?

Pour le moment, j'ai constitué un code qui me permet d'envoyer en PJ le classeur en entier et de nommer la PJ suivant mon "thisworkbook.name".

Code ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Envoi() Dim MonOutlook As Object Dim MonMessage As Object ThisWorkbook.Sheets("feuil1").Select Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.CreateItem(0) MonMessage.To = "" MonMessage.Cc = "" MonMessage.Subject = "" MonMessage.body = " MonMessage.Attachments.Add ActiveWorkbook.Path & "\" & ThisWorkbook.Name MonMessage.display Set MonOutlook = Nothing End Sub
Merci de me donner un petit coup de pouce car je reste bloqué ;)

Cordialement,

08/08/2016, 13h08
halaster08

Citation:

je voudrais envoyer par mail un onglet de mon classeur Excel. Cela est-il possible ?

Oui, mais a ma connaissance pas directement.

Allume l'enregistreur de macro, copie ton onglet dans un nouveau classeur sauve le, puis éteint l'enregistreur.
Tu aura alors la base du code rajouter à ta macro.
08/08/2016, 15h29
kiki29

Salut, voir ici

Re,

Code terminé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub EnvoiMailavecPJ()
 
    Dim chemin As String, fichier As String
 
    chemin = ThisWorkbook.Path
    fichier = chemin & "\" & "Ordonnancement" & Range("A3") & ".xls"
 
MsgBox "L'ordonnancement est prêt à être envoyé."
 
    ThisWorkbook.Sheets("Feuil1").Copy
    ActiveWorkbook.SaveAs Filename:=fichier
 
    Dim MonOutlook As Object
    Dim MonMessage As Object
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
        MonMessage.To = ""
        MonMessage.Cc = ""
        MonMessage.Subject = ""        
        MonMessage.body = "Bonjour," & _
                    Chr(13) & Chr(13) & "Veuillez trouver, ci-joint, l'ordonnancement ." & _
                    Chr(13) & Chr(13) & "Bonne réception."
 
        MonMessage.Attachments.Add ActiveWorkbook.FullName
        MonMessage.display
 
    ActiveWorkbook.Close
 
    Set MonOutlook = Nothing
 
End Sub

A+

10/09/2024, 08h45
romun88

question

Bonjour ,

Merci pour ce code qui fonctionne très bien, cependant, je ne parviens pas à envoyer la PJ en PDF.
Pouvez vous m'aider ?

J'ai par ailleur ajouter en fin de code MonMessage.send, pour que le mail soit envoyé en automatique. c'est top.

Merci
12/09/2024, 03h05
helmaj23

Re

Salut KLUMERO,
Ca fait longtemps que je n'ai pas codé ce type de macro, mais de mémoire (si elle ne me fait pas défaut) il faut indiquer au moins une adresse de destinataire : MonMessage.To = "mail1@mail.com" ; par habitude j'utilise toujours une variable pour transmettre une chaîne (Dim monFichier as String), donc je coderai : monFichier = ThisWorkbook.FullName, ou pour un autre fichier : monFichier = "C:\chemin\vers\mon\fichier.xlsx" ; puis je l'ajoute en PJ : MonMessage.Attachments.Add monFichier ; et pour finir, la prévisu (facultative) : MonMessage.Display ; et l'exped : MonMessage.Send
Petite précision, ThisWorkbook est la copie du classeur Excel dans lequel tu code ta macro, donc tu joint un fichier Excel, pas un PDF. Si tu veux expédier un fichier PDF de ta feuille active Excel, tu dois la sauvegarder en fichier PDF puis l'expédier avec le second format décrit ci-dessus mais avec une extension ".pdf" (bien sûr).
Voila, le début et la fin de ton Sub me paraissent correct, j'espère ne pas avoir fait de faute de frappe. A+

bonsoir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub EnvoiMailavecPJ()
 
    Dim chemin As String, fichier As String, MonOutlook As Object, MonMessage As Object
 
 
    chemin = ThisWorkbook.Path
    fichier = chemin & "\" & "Ordonnancement " & Feuil1.Range("A3") & ".pdf"
 
    MsgBox "L'ordonnancement est prêt à être envoyé."
 
    Feuil1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
    MonMessage.To = ""
    MonMessage.Cc = ""
    MonMessage.Subject = "Ordonnancement " & Feuil1.Range("A3")
    MonMessage.body = "Bonjour," & _
                       Chr(13) & Chr(13) & "Veuillez trouver, ci-joint, l'ordonnancement ." & _
                       Chr(13) & Chr(13) & "Bonne réception."
 
    MonMessage.Attachments.Add fichier
    MonMessage.display
    'ou
    'MonMessage.send
 
 
    Set MonOutlook = Nothing
 
End Sub

13/09/2024, 08h03
romun88

pdf

Bonjour Patmeziere,

Si je regarde bien, vous avez remplacer l'extension par .pdf ?
si c'est cela, j'avais déjà essayé, et le PDF envoyé en copie du mail est illisible, ou comme corrompu ou mal chiffré.

Merci de ton aide
13/09/2024, 15h23
patmeziere

re

re
bonjour
non l'export ce n'est pas comme save As
et si c'est mal chiffré ou encodé alors tu a peut être un conflit avec ton application pdf installé dans ton system ,qui prend le pas sur l'addons pdf de excel
au quel cas supprime le momentanément et ré essaie
13/09/2024, 16h02
romun88

pdf

re bonjour,

En fait, j'arrive à exporter un PDF lisible mais sous le code suivant :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & "" & Range("P19").Value, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Call KopImg1
La ca exporte un PDF lisible

SI je mets ce code :
Chemin = ThisWorkbook.Path
fichier = Chemin & "" & "Ordonnancement" & Range("A3") & ".pdf"

Alors mon fichier est corrompu ou illisible...

Il y a pas moyen de greffé ce premier code pour qu'il se mette sous ce format en PJ du mail ?
Merci