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
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
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
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
Partager