Discussion :

[bvsud]

Bonjour à tous

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

Code :

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

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

[sergio_is_back]

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 :

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

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

Ce serai plutôt du style :

Code :

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

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

Par exemple

[ShaiLeTroll]

800AO3EC un HRESULt, cela peut être

ERROR_INVALID_FLAGS

1004 (0x3EC)

Indicateurs non valides.

[bvsud]

Merci à tous !
Ca marche.

Code :

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

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.