Code :
- option explicit
- dim ppt
- dim ret
- on error resume next
- Set ppt = CreateObject("PowerPoint.Application.9" )
- ppt.Activate
- ppt.WindowState = 3
- ppt.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 = nothing
- end if
- on 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