NGSoft-fr.com > MenusLAB.com : LAB - créateur de menus ! |
NGSoft-fr.com I Accueil I Téléchargements I Trucs et astuces I F.A.Q. I Centre d'aide
Forum I Suport/Contact I Livre d'or I Diffusions I Dons I Plan |
Rejoindre les 10996 utilisateurs priviliègés gratuitement |
Tester la présence de PowerPoint et afficher un bouton en conséquenceCe code permet de tester si PowerPoint ou si la Visionneuse PowerPoint est installé afin d'afficher, si ce n'est pas le cas, un bouton proposant de l'installer. Dans cet exemple le bouton permettant d'installer la visionneuse sera un bouton de type 'code VBS' et se nommera Bouton1. Après avoir créé ce bouton, cliquez sur 'Modifs' à coté de 'Déclarations VBS globales' dans les paramètres de la feuille de travail et collez le code suivant : Function TestPowerPointPresence() Dim oTest 'gestion d'erreurs On Error Resume Next: Err.Clear 'powerpoint installé ? Set oTest = CreateObject("PowerPoint.Application") TestPowerPointPresence = Not (Err.Number = 429) Set oTest = Nothing Err.Clear 'et la visionneuse ? Set oTest = CreateObject("PowerPointViewer.Application") If Not TestPowerPointPresence Then TestPowerPointPresence = Not (Err.Number = 429) Set oTest = Nothing End Function Il s'agit d'une fonction renvoyant Vrai si la visionneuse ou powerpoint est installé ou Faux sinon. Il vous suffit alors, toujours dans les paramètres de la feuille de travail, de choisir 'Exécuter du code VBS' dans 'Action à faire au démarrage' puis d'entrer ceci : Bouton1.Visible = Not TestPowerPointPresence Ce code permet ainsi d'afficher le bouton permettant d'installer la visionneuse si nécessaire. Commentaires sur l'article : Retour au menu |