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