Cette macro fonctionnait jusqu'à la mise à jour pdf

Bonjour,

Sub ToPdf()
Dim att As String
Dim msg As Outlook.MailItem

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = Range("C12") & "-" & "demande de prix" & "-" & Range("C18") & ".pdf"

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") = ThisWorkbook.Path
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With

ActiveWorkbook.Worksheets("DDE de PRIX").PrintOut copies:=1, ActivePrinter:="Imprimante 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

'close ("*.pdf")



'Envoi du fichier PDF final par email
Set myOlApp = CreateObject("Outlook.Application")
Set msg = myOlApp.CreateItem(olMailItem)
att = ThisWorkbook.Path & "\" & NomPdf

With msg
.Subject = "Notre demande de Prix"
.To = ActiveWorkbook.Worksheets("DDE de PRIX").Range("G14").Value
.Attachments.Add att
.Display
End With
End Sub