Réponse acceptée !
salut,

moi j'ai fait comme ça:

  // ############## OLE ###################

  {Explaination :
  Look like the create work, even when we don't have excel on the os.
  but it's raise on the first call. }
  ExcelApplication1:= TExcelApplication.create(nil);

  fExcelPresentOnThisOS := true;
  try
    //# Check if excel is already open: // (tmp solution, we can do better)
    // if no WorkBook are open, it's mean we start ourself excel
    // (or that the user won't mind if we close it)
    fExcelWasOpen := ExcelApplication1.Workbooks.Count > 0;
    // will raise if no excel present.
  except
    on E: EOleSysError do begin
      fExcelPresentOnThisOS := false;

        ShowMessage(
           'Exception Type : ' + E.ClassType.ClassName + sLineBreak +
           'Exception Message : ' + sLineBreak +
           E.Message
           );
    end;
  end;


A+

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.