Détecter la présence d'excel
Résolu
therafou
Messages postés
46
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
10 juin 2007
-
16 juin 2006 à 09:19
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 16 juin 2006 à 10:58
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 16 juin 2006 à 10:58
1 réponse
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
16 juin 2006 à 10:58
16 juin 2006 à 10:58
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>
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>
