Bonjour,

En réalisant une macro pour envoyer un courriel, j'aimerais ne pas envoyer mon classeur mais un fichier PDF.

xlDialogSendMail ayant 3 arguments, de quel façon je peux remédier au problème.

Merci et dans l'attente bonne soirée


la macro
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
 
Sub editPDFMail()
'
' editPDFMail Macro
'
 
'
 
    Range("A1:AB49").Select
    Range("AB49").Activate
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\c\Desktop\CBBResultats.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Range("A6").Select
    Dim MailTab As Variant
 
    MailTab = Array("paul@sfr.fr", "thierry@gmail.com", "fred@aol.com")
    Application.Dialogs(xlDialogSendMail).Show MailTab, "Résultats de la compétition"
 
End Sub