[Excel] Commentavoir si un classeur est déjà ouvert ?

Bonjour,
J'ai parcouru <> faq delphi/excel et je sais ouvrir et fermer des classeurs mais je n'ai pas trouvé comment vérifié si un classeur est ouvert ou non.

Ma question est donc implicite.

Merci.

Salut,
a prioris un classeur ( Workbook) fermé n'est plus dispos sous Excel.
Regarde dans la collection Workbooks si le classeur existe ou pas.

Code:

---

1 2 3

Collection Workbooks Collection de tous les objets Workbook actuellement ouverts dans l'application Microsoft Excel.

---

Merci ... Je vais essayer sur le champ.

J'utilise ce cvode pour fermer tout classeur ouvert à partir du moment ou il y en a un d'ouvert.

Code:

---

1 2 3 4 5 6 7 8 9

If form2.ExcelApplication1.Workbooks.Count <> 0 Then begin for cpt := 0 to form2.ExcelApplication1.Workbooks.Count do form2.ExcelApplication1.Workbooks.Close( cpt);       end;

---

Malheureusement le count renvoit tjrs zero même si j'ai des classeurs d'ouvert.

Citation:

---

Regarde dans la collection Workbooks si le classeur existe ou pas.

---

Oui mais comment laurent c'est le theme de ma question. :wink:

Salut,
a prioris pas de pb de mon coté

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

var cpt : longint; FileName:string; Worksheet: variant; begin If ExcelApplication1.Workbooks.Count <> 0 Then begin MessageDlg(IntToStr(ExcelApplication1.Workbooks.Count), mtWarning, [mbOK], 0); for cpt := ExcelApplication1.Workbooks.Count downto 1 do begin Worksheet:=ExcelApplication1.Workbooks.Item[cpt]; FileName:=Worksheet.Fullname; MessageDlg(FileName, mtWarning, [mbOK], 0); Worksheet.Close; MessageDlg(IntToStr(ExcelApplication1.Workbooks.Count), mtWarning, [mbOK], 0); end; // Ou en lieu et place de la boucle //ExcelApplication1.Workbooks.Close(0); MessageDlg(IntToStr(ExcelApplication1.Workbooks.Count), mtWarning, [mbOK], 0); end; end;

---

Ensuite tu peux essayer de charger un fichier, en utilisant son nom, via la propriété item :

Citation:

---

expression.Item(Index)

expression Obligatoire. Expression qui renvoie un objet Workbooks.

Index Argument de type Variant obligatoire. Nom ou numéro d'index du classeur.

---

Si il n'existe pas, une erreur OLE sera levée, à vérifier.
A+

Merci ...