Sub LancerPPT()
'
Dim ANIMATEUR As String
ANIMATEUR = Sheets("DATA MACRO").Range("B3")
Dim DOSSIER1 As String
DOSSIER1 = Sheets("DATA MACRO").Range("b10")
Dim DOSSIERPPT As String
DOSSIERPPT = Sheets("DATA MACRO").Range("B7").Value
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