Bonjour,
J'ai besoin d'aide, ci-dessous un bout de macro issue du forum
Je recherche une solution qui me permettrait de joindre un fichier xls en pdf
NomFichier = "S:\x.xls"
With Sheets("x")
.Visible = True
.Copy
End With
ActiveWorkbook.SaveCopyAs Filename:="S:\x.xls"
ActiveWorkbook.Close False
Set AttachME = MailDoc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject(1454, "", "S:\x ".xls", "Attachment")
J'ai passé beaucoup de temps et le résultat est catastrophique
Merci
a+
J'ai besoin d'aide, ci-dessous un bout de macro issue du forum
Je recherche une solution qui me permettrait de joindre un fichier xls en pdf
NomFichier = "S:\x.xls"
With Sheets("x")
.Visible = True
.Copy
End With
ActiveWorkbook.SaveCopyAs Filename:="S:\x.xls"
ActiveWorkbook.Close False
Set AttachME = MailDoc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject(1454, "", "S:\x ".xls", "Attachment")
J'ai passé beaucoup de temps et le résultat est catastrophique
Merci
a+