Comment lancer Excel quelque soit le sytème d`exploitation du PC utilise ?
Cle1 est une chaîne //1er cle lu dans la base de registre
Cle2 est une chaîne //2eme cle lu dans la base de registre
valeur est un entier //Taille de la chaine Cle2
//Tableau qui contient les version de Excel.Application
TablExcel est un tableau de 3 entier
TablExcel[1]= 9
TablExcel[2]= 8
TablExcel[3]= 7
//Compteur
i est un entier = 1
//Initialisation de la Cle1 et 2
Cle1=""
Cle2=""
//On recherche dabord la version la plus ancienne de Excel
BOUCLE
SI Cle1="" ET i<4 ALORS
Cle1 = RegistreLit("HKEY_CLASSES_ROOT\Excel.Application." TablExcel[i] "\CLSID","")
i
SINON
SORTIR
FIN
FIN
Cle2 = RegistreLit("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\" Cle1 "\LocalServer32","")
SI Cle2 = "" ALORS
Info("Application non installee")
FIN
//On supprime le paramètre "\Automation"
valeur = Taille(Cle2)
valeur=valeur-11
Cle2 = Gauche(Cle2,valeur)
//Lancement de l`application
DDELance(Cle2)