Ouvrir un fichier ppt à partir de VBA

Option Explicit
Dim Fichier As Variant
'allez dans Outils, Références et cochez: Microsoft PowerPoint ... Object library
Private Sub cmdopen_Click() 'nom du commandbutton à adapter
 'On cherche le chemin
  Fichier = Application.GetOpenFileName( _
    "Fichiers Présentation (*.ppt;*.pps),*.ppt;*.pps")
    If Fichier = False Then Exit Sub
  Test
End Sub
Sub Test()
Dim ppt As PowerPoint.Application
  Dim Pres As PowerPoint.Presentation
'On ouvre la présentation
  Set ppt = CreateObject("PowerPoint.Application")
  ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
Set Pres = ppt.Presentations.Open(Filename:=Fichier)
  Me.Hide 'On ferme l'userForm
End Sub

 Me.Hide 'On ferme l'userForm