Bonjour à tous,

je reviens vers vous car je bloque sur l'envoie par mail d'une feuille Excel en PDF. Mon code pour l'envoie fonctionne parfaitement, le seul problème vient de mes 3 dernières lignes de codes. En effet, la macro m'envoie le fichier complet en .xls en pièce jointe du mail alors que je souhaiterais qu'il m'envoie la feuille active en PDF. J'ai essayé d'appliquer plusieurs codes différents sur le forum mais cela ne fonctionne pas. Pourriez-vous m'aider ?

Pour info, j'ai déjà un code qui me créer un fichier PDF pour sauvegarde.

Merci pour votre aide.

Envoie du mail
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
Sub EnvoiPage()
 
Dim Destinataires(1) As String, Sujet As String
Dim AccuseReception As Boolean
    'Modifier les mails des destinataires
Destinataires(1) = Range("F18").Value
 
Sujet = "Bon de commande" & " " & Range("G6").Value
Body = "Bonjour," & vbCrLf & vbCrLf & "Vous trouverez en pièce jointe notre bon de commande."
AccuseReception = True
 
ThisWorkbook.Sheets("BdC").Copy
ActiveSheet.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
 
End Sub
Génération de la feuille active en PDF
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub PDF()
'Enregistrement du fichier en format pdf
 
Dim LaDate As String, LeParcours As String, LeRep As String, Ref As String
LaDate = Format(Date, "dd-mm-yyyy")
LeParcours = Range("F11").Value
Ref = Range("G8").Value
LeRep = ThisWorkbook.Path & "\Archives\"  ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & LaDate & "_" & Ref & "_" & LeParcours & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
 
End Sub