Un problème de type

Bonjour à tous :)

Je veux trier, par ordre alphabétique, les lignes d'un TabSheet d'Excell.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Procedure Lire_Et_Trier_TabSheet_Choisi_Quater; Var Nom_TabSheet : AnsiString; Ligne: integer; Val_Cellule: AnsiString; i: integer; Nb_Lignes: integer; ExcelApp: TExcelApplication; FeuilleCible: _Worksheet; Class_Base : _workbook; ovFeuille: OLEvariant;   begin   ExcelApp := TExcelApplication.Create(nil); Class_Base := ExcelApp.Workbooks.Open(Nom_Cplt_Classeur_Base, False, False, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);   ExcelApp.Connect; LCID_Classeur := GetUserDefaultLCID; ExcelApp.Visible[LCID_Classeur] := False;   FeuilleCible := Class_Base.Worksheets[TabSheet_Vise_Pour_Extraction_Dossier] as _Worksheet;   Nb_Lignes := Nb_Pat_Ds_TabSheet_Cible; // Fonction me retournant le nombre de patients dans ce TabSheet   Ligne := 13; Nom_TabSheet := TabSheet_Vise_Pour_Extraction_Dossier; FeuilleCible := Class_Base.Worksheets[Nom_TabSheet] as _worksheet;   FeuilleCible := Class_Base.Worksheets[TabSheet_Vise_Pour_Extraction_Dossier] as _worksheet; ovFeuille := FeuilleCible; ovFeuille.Range['C3','BY'].Sort(FeuilleCible.Range['C1','C1'], xlAscending, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, xlGuess, 1, False, xlTopToBottom, EmptyParam, EmptyParam, EmptyParam, EmptyParam);     (...)   end;

---

Plantage à la ligne : ovFeuille.Range...
Erreur OLE 800AO3EC

Dans la fenêtre de suivi des points d'arrêt :
FeuilleCible : Pointer($A8201C) as _Worksheet
ovFeuille :$00a8201c

On voit bien que ovfeuille ne pointe PAS sur FeuilleCible.

J'ai sorti ce code de la FAQ de Delphi.

C'est programmé sous Office 2007 (bien plus léger) et exécuté aussi bien sous Oficce 2007 qu'Office 2016.
Certaines adaptations sont parfois nécessaires d'une version à l'autre, notamment sur les réels. Mon prog initialise la version d'Office, et tout marche comme je veux.

Sauf... là !!

Un conflit de type.

Auriez-vous une solution ?

Merci ;)

A mon avis la plage n'est pas valide, BY est une colonne mais la ligne n'est pas mentionnée, or une place Excel est toujours, un couple de 'colonne/ligne','colonne/ligne' :

Code:

---

1 2	ovFeuille.Range['C3','BY']

---

Ce serai plutôt du style :

Code:

---

1 2	ovFeuille.Range['C3','BY999']

---

Par exemple

800AO3EC un HRESULt, cela peut être

ERROR_INVALID_FLAGS

1004 (0x3EC)

Indicateurs non valides.

Merci à tous !
Ca marche.

Code:

---

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

ExcelApp := TExcelApplication.Create(nil); Class_Base := ExcelApp.Workbooks.Open(Nom_Cplt_Classeur_Base, False, False, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);   ExcelApp.Connect; LCID_Classeur := GetUserDefaultLCID; ExcelApp.Visible[LCID_Classeur] := False;   FeuilleCible := Class_Base.Worksheets[TabSheet_Vise_Pour_Extraction_Dossier] as _Worksheet; Nb_Lignes := Nb_Pat_Ds_TabSheet_Cible;   FeuilleCible := Class_Base.Worksheets[TabSheet_Vise_Pour_Extraction_Dossier] as _worksheet; ovFeuille := FeuilleCible; ovFeuille.Range['C13','BY13'].Sort(FeuilleCible.Range['C13', Der_Col], xlAscending, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, xlGuess, 1, False, xlTopToBottom, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

---

Selon les onglets (il y en a quatre), la dernière colonne varie : d'où la variable Der_Col.