Re : Archiver en pdf
Salut,
Pour enregistrer en PDF voici la macro que j'utilise, en rouge les paramètres qui devraient t'aider :
Sub ToPdf()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = Range("K1")
NomPdf = Left(NomExcel, Len(NomExcel) - 0) & ".pdf"
With pdfjob...