Insertion d'une nouvelle feuille(onglet) Excel à la dernière position

Bonjour à tous:
je suis entrain de developper une application qui pilote Excel depuis Delphi,
j'ai utilisé la méthode des tableaux:

Code:

---

1 2 3

OleApplication := CreateOleObject('Excel.Application'); OleApplication.visible:=false; OleWorkBook:=OleApplication.Workbooks.Add;

---

8-)

et si je veut acceder à une feuille j'utilise l'instruction :

Code:

---

OleWorkBook.Worksheets.item[i].Activate;

---

le problème, c'est quand je veut inserer une nouvelle feuille (onglet)(à partir de la quatrième feuille puisque Excel fournit 3 feuilles par défaut) avec l'instruction : OleWorkBook.Worksheets.Add, la nouvelle feuille est insérée au milieu, j'obtiens ainsi l'ensemble des feuilles en désordre(1,2,4,3 !!):aie::nono:, sachant que je veut l'insérer à la dernière position..y-a-t-il un paramètre à ajouter?? Merci à l'avance;).

Pour Office 2003, extrait l'aide en ligne VBA:

Citation:

---

Cette méthode crée une nouvelle feuille de calcul, un nouveau graphique ou une nouvelle feuille macro. La nouvelle feuille de calcul devient la feuille active.
expression.Add(Before, After, Count, Type)
expression Obligatoire. Expression qui renvoie un des objets ci-dessus.
Before Argument de type Variant facultatif. Objet qui spécifie la feuille avant laquelle la nouvelle feuille est ajoutée.
After Argument de type Variant facultatif. Objet qui spécifie la feuille après laquelle la nouvelle feuille est ajoutée.
Count Argument de type Variant facultatif. Nombre de feuilles à ajouter. La valeur par défaut est un.
Type Argument de type Variant facultatif. Spécifie le type de feuille. Il peut s'agir de l'une des constantes XlSheetType suivantes : xlWorksheet, xlChart, xlExcel4MacroSheet ou xlExcel4IntlMacroSheet. Si vous insérez une feuille basée sur un modèle existant, spécifiez le chemin de celui-ci. La valeur par défaut est xlWorksheet.

---

OleWorkBook.worksheets.add(after:=OleWorkBook.WorkSheets[OleWorkBook.WorkSheets.count]);

salut

tiens moi je fait plutot

Code:

---

EcxelApp.Workbooks.Add(xlWBatWorkSheet);

---

@+ Phil