Impression d'un PPT et enregistremt ds le même dossier

Bonjour,

Je souhaite créer une macro qui permet d'imprimer un ppt en PDF et ensuite d'enregistrer ce PDF avec le même nom que le PPT dans le dossier d'origine du PPT.

Je précise que j'utilise PPT 2010 et PDF Creator.

Pour exemple, imaginons un fichier PPT nommé "Présentation client.pptx" et enregistré dans le dossier "C:\Users\Documents", j'aimerai créer un bouton dans ma barre d'outils PPT qui serai relié à une macro. Cette macro imprimerai le fichier en PDF, le nommerai "Présentation client.pdf" et l'enregistrerai sous "C:\Users\Documents".

Pour l'instant et après plusieurs recherches sur différents forums, je ne suis arrivé qu'à une macro qui ouvre la fenêtre de dialogue de PDF Creator.
Voilà le code :

Sub Macro1()
sName = ActivePresentation.Name
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=1, End:=1
End With
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "PDFCreator"
End With
ActivePresentation.PrintOut
ActivePresentation.SaveAs FileName:=sName
Dim sPDFName As String
Dim sPDFPath As String
sPDFPath = ActivePresentation.Path & "\"
End Sub

J'espere avoir été assez claire dans ma demande et je vous remercie par avance de l'aide que vous pourrez m'apporter.