Discussion :

[Fredbyx]

Bonjour,

Malgré les nombreux messages traitant ce sujet, j'ai un problème avec la fonction.

Lorsque j'enregistre une macro, via l'enregistreur de macro Excel, cela fonctionne très bien (Fichier, Partager, sélection pdf).
Par contre lorsque je lance la macro il me joint le fichier Excel et non le pdf.
Ci-dessous le code généré par l'enregistreur de macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\esnfrbyx\AppData\Local\Temp\Quote Direction Sheet - Vx.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
        , OpenAfterPublish:=False   
    Application.Dialogs(xlDialogSendMail).Show

Le pdf est bien créé dans le répertoire.
Je suis sous 365.
La librairie est bien active.

Quelqu'un a t'il une idée de mon problème ?

Merci d'avance.

[joe.levrai]

Bonjour,

l'enregistreur de macro ne capture pas les séquence où c'est le pdf qui est attaché au mail.

Il faut donc traiter en deux étapes : la tienne (sans l'ouverture de la boite de dialogue d'envoi de mail) + une partie pour créer le mail et y attacher le pdf

par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Toto()
 
' ton code de création du pdf
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\esnfrbyx\AppData\Local\Temp\Quote Direction Sheet - Vx.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
, OpenAfterPublish:=False
 
 
' la partie qui crée le mail
With CreateObject("Outlook.Application")
    With .CreateItem(0)
        .To = "Adresse du destinataire"
        .Subject = "Sujet du mail"
        .attachments.Add "C:\Users\esnfrbyx\AppData\Local\Temp\Quote Direction Sheet - Vx.pdf"
        .display
    End With
End With
 
End Sub

[hyperion13]

Salut
La méthode que vous utilisez pour envoyer un mail permet d'envoyer en attache le classeur en cours.

[Fredbyx]

Merci pour vos réponses.

J'ai déjà essayer de de dissocier la création du pdf et de l'envoi, mais à chaque fois j'ai un problème avec "CreateObject("Outlook.Application")".

J'ai une erreur d'exécution 429. Un composant ActiveX ne peut pas créer d'objet.

[hyperion13]

re,
Sans le code global ...
Un exemple de code fonctionnel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub EnvoyerMail()
'early binding
'Microsoft Outkook xx.x Object Library
Dim xlWbk As Workbook
Dim xlWsh As Worksheet
Dim rngPlanning As Range
Dim strFilePath As String, strFolder As String, strPdfFile As String
Dim outApp As Outlook.Application
Dim outMail As Outlook.MailItem
Dim outAtt As Outlook.Attachment
 
Set xlWbk = ThisWorkbook
Set xlWsh = xlWbk.Worksheets("Mail")
Set rngPlanning = xlWsh.Range("D1:BF24")
 
strFilePath = ActiveWorkbook.Path & Application.PathSeparator
strFolder = "planning\"
strFilePath = strFilePath & strFolder
 
strPdfFile = Format(Now(), "yyyymmdd") & "_" & "Planning" & "_" & xlWsh.Range("BI6").Value & ".pdf"
 
rngPlanning.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:=strFilePath & strPdfFile, _
                                Quality:=xlQualityStandard, _
                                IncludeDocProperties:=True, _
                                IgnorePrintAreas:=False, _
                                OpenAfterPublish:=False
 
Debug.Print strFilePath & strPdfFile
Set outApp = New Outlook.Application
Set outMail = outApp.CreateItem(olMailItem)
 
With outMail
    .BodyFormat = olFormatHTML
    .Display
    .HTMLBody = "Bonjour " & xlWsh.Range("BI6").Value & "<br>" & "<br>" & _
                "Vous trouverez votre planning en attache." & "<br>" & "<br>" & _
                "Bonne réception."
    .To = xlWsh.Range("BK5").Value
    .Subject = "Planning de la semaine n° " & xlWsh.Range("V3").Value
    .Attachments.Add strFilePath & strPdfFile
    .Display '.Send
End With
 
Set outMail = Nothing
Set outApp = Nothing
End Sub

[joe.levrai]

La méthode d'hypérion, en early binding, nécessite de cocher la bonne référence Outlook, qui variera d'une version à l'autre.
Ce qui limite le portage d'une machine à l'autre.

Ton erreur provient vraisemblablement du fait que tu as déjà une instance outlook ouverte.

Il suffit donc de tester si on peut "capter" une instance Outlook, si ce n'est pas le cas, c'est qu'il est fermé ==> alors on l'ouvre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Toto()
Dim OlApp As Object
 
' ton code de création du pdf
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\esnfrbyx\AppData\Local\Temp\Quote Direction Sheet - Vx.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
, OpenAfterPublish:=False
 
' on tente de récupérer une instance Outlook ouverte
On Error Resume Next
    Set OlApp = GetObject(, "Outlook.Application")
On Error GoTo 0
 
' si on a rien récupéré, on en ouvre une
If OlApp Is Nothing Then Set OlApp = CreateObject("Outlook.Application")
 
' la partie qui crée le mail
With OlApp
    With .CreateItem(0)
        .To = "Adresse du destinataire"
        .Subject = "Sujet du mail"
        .attachments.Add "C:\Users\esnfrbyx\AppData\Local\Temp\Quote Direction Sheet - Vx.pdf"
        .display
    End With
End With
 
Set OlApp = Nothing
 
End Sub

[Fredbyx]

re,

Cela bloque toujours sur la même commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set OlApp = CreateObject("Outlook.Application")