Problème de sauvegarde d'un PPT à partir d'une macro d'excel

Bonjour.
Je suis actuellement en train de créer une macro qui permet d'automatiser la mise à jour d'un fichier PPT à partir d'un fichier excel. Le problème de mon code concerne la sauvegarde du fichier PPT qui lors de l'execution m'affiche un message d'erreur:"Erreur d'execution'-2147024809(80070057)' Presentation.SaveAS: Invalid enumeration value".
Voici mon code:
Macro3 Macro
'Dim FichierPpt, pwpt, presppt
'Dim Pres As PowerPoint.Presentation
'Dim ppapp As PowerPoint.application


'Set pwpt = CreateObject("PowerPoint.Application")

Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '

Set presppt = pwpt.presentations.Open(Filename:="nom du fichier.ppt")
presppt.UpdateLinks

pwpt.Visible = True
presppt.SaveAs "nom du fichier ppt", ppSaveAsDefault.

Quelqu'un pourrait-il m'aider?

Merci de votre aide.