Comment vérifier si Excel est installé ?

Bonjour,

J'utilise Excel pour mon application via l'OLE.
Mais comment savoir si Excel est installé sur le poste (avant de lancer l'OLE sinon ça plante) ?

Je pensais regarder si l'exe est présent dans C:\Program Files\Microsoft Office\Office\excel.exe mais ce répertoire peur changer...

Est-ce que quelqu'un a une idée ?
Peut être dans la base de registre, mais quelqu'un connaît-il les bonnes clefs ?

Merci d'avance
@+

Essaie ça, dans un try...except

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var MonXL:Variant; begin result:=true; try MonXL:=createoleobject('Excel.application'); except MessageDlg('Problème lors de l''export vers Excel.'+#13+#10+'Excel n''est peut être pas installé.', mtError, [mbOK], 0); result:=False; end; If result then MonXL:=Nil;

---

Ajoute dans la clause uses l'unité ComObj
Si tu vas pas dans le except, alors XL est installé. J'ai peut être oublié une instruction pour bien libérer MonXL
Si qqun peut compléter...

Tu l'as dans la base de registre sous :

Code:

---

1 2	HKEY_LOCAL_MACHINE\Software\Microsoft\Office\Excel

---

merci à vous deux.
la deuxième solution me convient mieux, il vaut mieux prévenir que guérir :wink:

cordialement
mathieu

je trouve la premiere plus propre : le Ole Create peut planter pour d'autres raisons, et la clé de base de registre peut changer (peu probable, d'accord)

[EDITE]
ah oui, sans oublier ceux qui désinstallent Excel simplement en supprimant le répertoire...
[/EDITE]

voici le morceau de code, si cela peut servir...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Var Registre : TRegistry; Begin Registre := TRegistry.Create; Registre.RootKey := HKEY_LOCAL_MACHINE; // on test si excel est installé If Registre.OpenKey('\SOFTWARE\Microsoft\Office\Excel', False) Then Begin FrmExcel.ShowModal; End else ShowMessage('L''importation nécessite que Excel soit installé.'); Registre.CloseKey; Registre.Free;

---

gord's avec cette méthode je n'ouvre même pas la formexcel, sinon il faudrait que j'ouvre la form, que je lui fasse choisir un fichier et attendre que ça plante pour lui dire qu'en faite il ne peut pas importer....
Mais cela ne m'empêche pas de mettre des try pendant l'import ole au cas ou il y aurais un plantage, mais ça c dans un second temps, à mon avis.
De toute façon je ne crois pas qu'il y ai une solution en informatiqe, il y a des milliers de problèmes et mille fois plus de solution pour les règler... :wink:

cordialement
mathieu

je crois que ça planterai dès le create Ole.
Mais tu as raison : pas de solution unique !

Bonjour,

Discussion de 2002 ... Problème plus complexe en 2017 pour la base de registre car on a maintenant les différentes versions d'Office !

HKEY_LOCAL_MACHINE
...SOFTWARE
......Microsoft
.........Office
............11.0
............14.0
...............Excel
...............Word

:roll:

Tu pourrais simplement contrôler que le raccourci existe:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\excel.exe

et éventuellement t'assurer que le fichier existe par rapport aux infos de cette clé.

Ou, plus terre à terre (mais dangereux ?) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Word_Existe As Boolean Word_Existe = False   For I = 1 To 30 If FichierExiste("C:\Program Files\Microsoft Office\Office" & I & "\winword.exe") Then Word_Existe = True Next I   If Word_Existe Then MsgBox "oui" Else MsgBox "non" End If

---