Problème: Ouverture Fichier .ppsx en mode ppt

Bonjour à tous,

Je souhaite ouvrir un fichier ppsx de la même manière que si je l'ouvrai via l'explorateur, c'est à dire directement en mode diapo (lecture seule du coup). Et surtout sans avoir besoin d'ouvrir powerpoint (tout comme si je l'ouvrai via l'explorateur). (Et avec ma macro si dessous, je ne peux pas quitter powerpoint dans cette sub car cela quitterai avant même que j'interragisse dans la diapo...)

Dim FichierPps As String, pwpt As Object, prespps As Object

'PS: Le chemin "DossierTuto" est défini dans un autre module
Nom_fichier = "Tuto programme Excel d'habilitation (Version courte).ppsx"
FichierPps = DossierTuto & "\" & Nom_fichier

Set pwpt = GetObject(, "Powerpoint.Application")
If pwpt Is Nothing Then set pwpt = CreateObject("Powerpoint.Application")

pwpt.Visible = True
Application.DisplayAlerts = False

Set prespps = pwpt.Presentations.Open(Filename:=FichierPps, ReadOnly:=msoTrue)
prespps.SlideShowSettings.Run

Set prespps = Nothing
Set pwpt = Nothing

Auriez vous la solution?

Merci à vous

Bonjour,

    'PS: Le chemin "DossierTuto" est défini dans un autre module
    Nom_fichier = "Tuto programme Excel d'habilitation (Version courte).ppsx"
    FichierPps = DossierTuto & "\" & Nom_fichier

    CreateObject("Shell.Application").Open (FichierPps)

Bonsoir Thev,

Incroyable, t'es un génie!!! j'ai cherché pendant des heures cet après midi sans jamais trouver!! Et toi en 1 seule ligne t'arrives à régler le problème, impressionnant, je suis bluffé!

Merci beaucoup Thev!!!!!!!!