Ci-dessous voici le code qui était utilisé pour générer un pdf avec excel 2003, maintenant j'aimerais l'adapter avec excel 2013 mais je n'y arrive pas, pouvez vous m'aider?
merci d'avance.
Code:
Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
With JobPDF
.cStart "/NoProcessingAtStartup"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = Chemin
.cOption("AutosaveFilename") = NomFichier
.cOption("AutosaveStartStandardProgram") = 1
.cOption("UpdateInterval") = 0
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until JobPDF.cCountOfPrintjobs = 1
DoEvents
Loop
JobPDF.cPrinterStop = False
Do Until JobPDF.cCountOfPrintjobs = 0
DoEvents
Loop
JobPDF.cClose
Set JobPDF = Nothing
End Sub
Salut, depuis Excel 2007 SP2 le PDF est inclus en natif dans la suite Office, et à moins de vouloir manipuler les pdf plus besoin de PDFCreator. Utilise l'enregistreur de macro tu auras le code idoine. en gros qqch comme ceci :