Détecter la présence d'excel [Résolu]

Signaler
Messages postés
46
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
10 juin 2007
-
cs_DARKSIDIOUS
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Salut,


Comment savoir si l'ordinateur à bien excel pour ne pas lancer des commandes qui ne seraient aboutir


Merci

1 réponse

Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
87
Utilise par exemple la gestion d'erreur : essaye de créer un objet excel.application en dynamique, et si tu as une erreur, c'est qu'il n'est pas installé...

On error goto Excel_Not_Found

Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
if oExcel is nothing then goto Excel_Not_Found

exit sub

Excel_Not_Found:

Msgox "excel n'est pas installé"

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>