Option Explicit Dim Fichier As Variant Private Sub cmdopen_Click() '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