[résolu] lancer un pptm par macro

Sub lanceppt()
Dim chemin$, fppt$
chemin = "C:\temp\"
fppt = Range("A1").Text
ActiveWorkbook.FollowHyperlink chemin & fppt
End Sub

Sub lanceppt2()
Dim wsSh As Object
Dimchemin$ , fppt$
Set wsSh = CreateObject("WScript.Shell")
chemin = "C:\Temp\": fppt = Range("A1").Text
wsSh.Run chemin & fppt
End Sub

Sub LancerPPT()
Dim ANIMATEUR As String
ANIMATEUR = Sheets("DATA MACRO").Range("B3")
Dim DOSSIER1 As String
DOSSIER1 = Sheets("DATA MACRO").Range("b10")
MsgBox DOSSIER1
Dim DOSSIERPPT As String
DOSSIERPPT = Sheets("DATA MACRO").Range("B7").Value
MsgBox DOSSIERPPT
'Qu'affiche les deux Msgox?
 'ActiveWorkbook.Save
 'Dim Cible
  'Cible = Shell("POWERPNT.EXE ""C:\Users\" & ANIMATEUR & ".GLF\"  & "Documents\lynx stats\Présentation 'statistiques_VIERGE.pptm""",  1)
  'Cible = Shell("POWERPNT.EXE ""DOSSIERPPT""", 1)
  'Cible = Shell("POWERPNT.EXE ""DOSSIER1 & "lynx stats\Présentation statistiques_VIERGE.pptm""", 1)
  End Sub

Sub codecorrigé()
Dim chemin$, fppt$
chemin = "C:\temp\"
fppt = Range("A1").Text
cible = Shell("POWERPNT.EXE " & chemin & fppt, 1)
End Sub

cible = Shell("POWERPNT.EXE " & """" & chemin & fppt & """""", 1)