Discussion :

[mathieutlse]

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
@+

[sbeu]

Essaie ça, dans un try...except

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Jean44]

Tu l'as dans la base de registre sous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
HKEY_LOCAL_MACHINE\Software\Microsoft\Office\Excel

[mathieutlse]

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

cordialement
mathieu

[gord's]

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]

[mathieutlse]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

cordialement
mathieu

[gord's]

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

[jack554]

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

[Andnotor]

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é.

[jack554]

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

Code basic :

Sélectionner tout - Visualiser dans une fenêtre à part

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