Piece jointe en PDF

bonjours à tous,

j'ai une macro qui me permet d'envoyer un mail avec une pièce jointe (que je renomme).

le problème est que certaine personne ne peuvent pas lire le fichier (à cause de la version d'Excel probablement) et j'aimerais que le fichier sois en PDF.

voila ma macro:

Sub mail_pdf()

ActiveSheet.Copy

Range("E:H").EntireColumn.Hidden = True

ActiveSheet.SaveAs Filename:="C:\Users\cccuia\Documents\poubelle\" & Range("B2").Value

' Nécessite la référence : Microsoft Outlook 1x Object Library

Dim olApp As Outlook.Application

Dim olMail As MailItem

Dim CurFile As String

Set olApp = New Outlook.Application

Set olMail = olApp.CreateItem(olMailItem)

CurFile = ThisWorkbook.Path & "\" & "MaFeuille.Pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

[/b]With olMail

.To = Range("E2")

'.CC = "name2@domain2.com"

.Subject = "sujet"

.Body = "Vous trouverez ci-joint le fichier PDF ..."

.Attachments.Add CurFile

.Display

'.Send

End With

' Effacer les variables objets

Set olMail = Nothing

Set olApp = Nothing

End Sub

ce qui est souligné est la partie qui est sensé me convertir le fichier en PDF (ca marche mais il va s'appeler "ma feuille" dans le mail et ça je ne veux pas, je veux qu'il s'appelle selon le texte qu'il y'a en valeur B2

merci d'avance;

Jawst

Bonjour,

une proposition

Sub mail_pdf()

ActiveSheet.Copy
Range("E:H").EntireColumn.Hidden = True
ActiveSheet.SaveAs Filename:="C:\Users\cccuia\Documents\poubelle\" & Range("B2").Value
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
CurFile = ThisWorkbook.Path & "\" & range("B2") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False 
With olMail
.To = Range("E2")
'.CC = "name2@domain2.com"
.Subject = "sujet"
.Body = "Vous trouverez ci-joint le fichier PDF ..."
.Attachments.Add CurFile
.Display
'.Send
End With

' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub

SAlut h2so4,

merci beaucoup c'est ce que je voulais

j'avais fais un truc dans ce style au début mais j'avais pas mis le "&" avant PDF dans curfile.

j'ai compris mon erreur

Jawst

Rechercher des sujets similaires à "piece jointe pdf"