bouton pour aller d'un fichier excel vers une diapo power point

Public Sub enregistrersous()
Dim nom As String
nom = Range("k4") & " " & "le" & " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " " & "à" & Hour(Time) & "h" & Minute(Time) & ".xls"
ActiveWorkbook.SaveCopyAs ("f:\permis de feu\historique pdf\janvier 2009" & "\" & nom)
rep = MsgBox("permis de feu enregistré sous :" & nom, vbYes + vbInformation)
LancePresentation
End Sub

Sub LancePresentation()
Dim FichierPpt, pwpt, presppt
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '
Set presppt = pwpt.presentations.Open(Filename:="L:\Mes Documents\Tableau de BordPaysdeLoire\PrésentationPower\PresentationDd44.ppt")
pwpt.Visible = True
presppt.SlideShowSettings.Run
End Sub