Downgrade macro Excel 2010 vers 2000

Sub SavePageEnCoursEnPdf()
Dim Imprimante
Imprimante = Application.ActivePrinter
Application.ActivePrinter = "PDFCreator sur Ne00:" 'A ADAPTER SELON VOTRE IMPRIMANTE PDF
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = Imprimante
End Sub

Cliquez pour agrandir...

Sub Save_******()
'
'
Sheets("*******").Select
nom = Sheets("****").Range("B1")
prénom = Sheets("*****").Range("G9")
Worksheets("****").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="\\***\**\*\**\Historique\*\" & nom & " " & prénom & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Cliquez pour agrandir...

Sub Pdf()

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = Sheets("***").Range("B1") & " " & Sheets("****").Range("G9") & ".pdf" ‘Le nom de vos cellules que vous voulez mettre en titre
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = "N:\******\******\********\" ‘L’endroit où vous voulez mettre le pdf
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ThisWorkbook.Sheets("*****").PrintOut copies:=1, ActivePrinter:="PDFCreator" ‘La feuille que vous voulez enregistrer en pdf
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing

End Sub

Cliquez pour agrandir...