Discussion :

[Leonor714]

Bonjour,

Utilisant excel 2007 Je souhaite réaliser une macro qui envoie par mail en pièce jointe le fichier :"E:\TEMP\test2.pdf".

J'arrive à créer et enregistrer le fichier pdf.
Mais je sais pas comment l'intégrer à la fonction Sendmail. à la place des ???????

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub EnvoiMail()
 ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "E:\TEMP\test2.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
        False, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
 ??????????.SendMail Recipients:="machintruc@orange.fr",
                          Subject:="Test envoi fichier pdf", _
                          ReturnReceipt:=False

End Sub

Merci d'avance

[kiki29]

Salut, dans la FAQ ou sinon une recherche

[Leonor714]

Merci pour cette réponse rapide ,

Mais j'ai bien rechercher pendant des heures sur tous les forums possible la solution à mon problème et j'ai déjà regardé les liens que tu proposes.
Ce n'est pas fainéantise que je me suis décidé à vous poser cette question.
C'est uniquement par ce que je n'ai pas trouvé ou compris comment faire.

C'est pour cela que je vous présente mon problème et espère une vrai réponse.

[kiki29]

Salut, regarde ici

[Oliv-]

Bonjour,
Comme cela si tu as OUTLOOK

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 Export_Xls_to_PDFmail()
'---------------------------------------------------------------------------------------
' Procedure : Export_Xls_to_PDFmail
' Author    : oliv-
' Date      : 21/11/2014
' Purpose   :
'---------------------------------------------------------------------------------------
'
 PathPDF = "d:\Temp\Classeur2.pdf"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                      PathPDF, Quality:=xlQualityStandard, IncludeDocProperties:= _
                                       False, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Dim ol As Object
    Set ol = CreateObject("outlook.application")
    Dim objMail As Object
    Set objMail = ol.CreateItem(0)
    objMail.attachments.Add PathPDF
    objMail.to = "toto.toto.fr"
    objMail.Subject="test envoi excel en pdf"
    objMail.Display
End Sub

[Leonor714]

Merci à vous pour ces réponses ,
Je vais donc tester tous cela ce week-end et vous tiendrais au courant .

Bonne journée