XL 2010 Problèeme Export PDF windouws 10

Bonjour à tous

Depuis la grosse mise à jour Windows 10 de cette semaine, mon code save as PDF ne fonctionne plus très bien.

La première fois il m'ouvre une fenêtre pour choix le l'imprimante.

Une fois choisi je peut exporter sans problème.

Avez-vous déjà eu ce bug?

Merci beaucoup pour votre temps

On Error GoTo GestErreur
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Temjeh\Desktop\" & Sheets("Print").Range("H10") & Sheets("Print").Range("I10").Text & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Cancel = True
MsgBox "Création de la facture no " & Sheets("Print").Range("I10").Text & " en PDF réussis"
Sheets("Factures").Activate
Exit Sub

GestErreur:

Temjeh