| Code : 
 option explicitdim pptdim reton error resume nextSet ppt = CreateObject("PowerPoint.Application.9" )ppt.Activateppt.WindowState = 3ppt.Presentations.Open "d:\docs\toto.ppt"if err <> 0 then	if msgbox("Pour visionner la présentation, vous devez installer la visionneuse PowerPoint." & vbCrLf & "Voulez-vous le faire maintenant ?", vbYesNo, "Installation de PowerPoint" ) then  ret = Shell("calc.com", 3)	end if	ppt.Quit	set ppt = nothingend ifon error goto 0
 | 
 
Ca marche "presque", sauf que "Shell" n'existe pas en VBS. Il y a un équivalent, mais je sais plus quoi  
 
A la place de "d:\docs\toto.ppt", t'as juste à mettre le chemin d'accès relatif au ppt à partir de la racine du CD.
 
Et à la place de "calc.exe" (quand t'auras trouvé un remplaçant à shell) tu mettras l'install du prog
 
Message édité par MagicBuzz le 13-02-2003 à 16:24:42