Pilotage OLE d'Excel : Méthode 'Range' non supportée

Version imprimable

Bonjour à tous :)

Soit un classeur Excel. Une feuille contient une zone que je veux pouvoir lire. J'ai suivi cette faq. J'ai traduit certains noms de variables pour que ce soit plus parlant pour moi.

J'ai cette erreur :
http://reho.st/self/5670e14ead9735ca...cb827876e7.png

Code de ma procédure :

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
44
45
46
47
48
49
50
51
Procedure Lire_Zone_A_Imprimer;
Var
  Lecture_Seule, Pos_Cellule, Cellule_Pointee, Val_Cellule : variant;

  Excel_App : variant; // Objet instance d'Excel (EXCEL.EXE)
  Lst_Classeurs : variant; // Lst des classeurs exploités par Excel (maintenant ou AVANT. Liste sauvée ds le rép. de profil utilisateur)
  Classeur_Cible : variant; // Classeur exploité
  Feuille_Pointee : variant;  // Feuille pointee
  vLink : variant; // Désigne quoi ? Pointe quoi ? "Link" serait "lien" . Pas un pointeur, mais lien vers quoi ?

  Nom_F : string;
  Nom_Feuille : AnsiString;

begin
  Lecture_Seule := True;
  Nom_F := GetCurrentDir + '\' + 'CLASSEUR.XLS';

  // Instancier Excel ---------------- // Ici : j'évite une gestion d'exception avec Tst_Process_Present() : si Excel est déjà lancé, pas de Create
  if Tst_Process_Present('EXCEL.EXE') = False then
    begin
      Excel_App := CreateOleObject('Excel.Application');   // Lancer Excel
    end
  Else
    begin
      Excel_App := GetActiveOleObject('Excel.Application');    // Se connecter à l'instantce d''Excel si acif
    end;

  Excel_App.Visible := False;

  // Ouvrir le classeur -------------------------
  Lst_Classeurs := Excel_App.WorkBooks;
  Lecture_Seule := True;
  vLink := Unassigned;
  Classeur_Cible := Lst_Classeurs.Open(Nom_F, vLink, Lecture_Seule);

  // Sélectionner la feuille ------------------
  Nom_Feuille := 'Impression';  
  Feuille_Pointee := Classeur_Cible.WorkSheets[Nom_Feuille];  // Le bug est ici V. plus bas le message d'erreur

  // à partir d'ici, non encore débogué 
  // Pointer la cellule -------------------------
  Pos_Cellule := 'A4';
  Cellule_Pointee := Classeur_Cible.Worksheets.Range[Pos_Cellule];
  Val_Cellule := Classeur_Cible.Worksheet.Cellule_Pointee.Value;

  // Fermer le classeur
  Excel_App.Quit;
  Excel_App := UnAssigned;

end;

J'avais déjà fait qqch comme ça sous D7, et XE7 me le compile toujours. Mais l'instruction Select ne figure pas sur la faq. Je ne l'ai donc pas utilisée ds l'exemple qui plante.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
        // Ouvrir le classeur
      XL := CreateOLEObject('Excel.application');
      XL.workbooks.open(Nom_F_XLS); // Ouvrir le fichier XLS
      XL.Visible := False;
 
      XL.sheets['Nb_Sites'].select;  // Sélectionner la feuille sur laquelle on travaille
      Colonne := 2;  // Nb sites
      Ligne := 1;   // Dictionnaires
      Chn := XL.cells[Ligne, Colonne].value;
      Nb_Dictionnaires := StrToInt(Chn);
 
        // Fermer le classeur
      XL.Quit;
      XL := UnAssigned;

12/03/2016, 17h11
NABIL74

Salut,

Citation:

Feuille_Pointee := Classeur_Cible.WorkSheets[Nom_Feuille];

Tu veux sélectionner une page d'excel par son nom:

Remplace "WorkSheets" par "ActiveSheet" pour voir

Code:

Feuille_Pointee := Classeur_Cible.ActiveSheet[Nom_Feuille];

sinon

Code:

XLApp.WorkSheets.Item['Page1'].Select;

ou

Code:

XLApp.Workbooks[1].Worksheets[1].Name);

Bonjour.

Aucune syntaxe ne passe.

Je suis arrivé à sélectionner la feuille :

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
44
45
46
47
48
49
50
Procedure Lire_Zone_A_Imprimer;
Var
  Lecture_Seule, Pos_Cellule : variant;

  Excel_App : variant; // Objet instance d'Excel (EXCEL.EXE)
  Lst_Classeurs : variant; // Lst des classeurs exploités par Excel (maintenant ou AVANT : ds les MRU);
  Classeur_Cible : variant; // Classeur exploité
  Feuille_Pointee : variant;  // Feuille pointee
  vLink : variant; // ?

  Nom_F : string;
  Nom_Feuille : AnsiString;

  aValue, aRange : AnsiString;
  vCell : variant;
  vWorkSheet : variant;  // Feuille pointée

begin
  Lecture_Seule := True;
  Nom_F := GetCurrentDir + '\' + 'CLASSEUR.XLS';

  // Instancier Excel ----------------
  if Tst_Process_Present('EXCEL.EXE') = False then
    begin
      Excel_App := CreateOleObject('Excel.Application');   // Lancer Excel
    end
  Else
    begin
      Excel_App := GetActiveOleObject('Excel.Application');    // Se connecter à l'instantce d''Excel si acif
    end;

  Excel_App.Visible := False;

  // Ouvrir le classeur -------------------------
  Lst_Classeurs := Excel_App.WorkBooks;
  Lecture_Seule := True;
  vLink := Unassigned;
  Classeur_Cible := Lst_Classeurs.Open(Nom_F, vLink, Lecture_Seule);

  // Sélectionner la feuille ------------------
  Nom_Feuille := 'Impression';
  Feuille_Pointee := Classeur_Cible.Sheets[Nom_Feuille].select;    // Sélectionner la feuille ds le classeur
                                                                   // Feuille_Pointee devient True

  vWorkSheet := Feuille_Pointee;
  // Sélectionner la cellule (donc : la ligne et la colonne de la feuille) -------------------
  aRange := 'A4';  // là, je reprends textuellement le tuto de la faq
//  vCell := Excel_App.vWorkSheet.Range[aRange];
  Excel_App.vWorkSheet.Range[aRange].Select;  // Le bug est ICI.

Erreur retournée :

http://reho.st/self/6559af994ceedb12...075f64a16b.png

13/03/2016, 09h39
tourlourou

Excel_App.vWorkSheet.Range[aRange].Select; // Le bug est ICI.

vWorkSheet est un nom de variable ; pas de propriété de Excel_App : erreur de copié/collé...

Bonjour,

si c'est juste pour lire le contenu de la cellule A4 comme dans ton premier code, l'exemple de la FAQ fonctionne bien (sous D7) :

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
procedure TForm1.Btn_Excel2Click(Sender: TObject);
Var
   vMSExcel :Variant ;
   vXLWorkbooks, vXLWorkbook : variant;
   vReadOnly, vLink : variant;
   aFileName : AnsiString;
   aSheetName : AnsiString;
   vWorksheet : variant;
   aRange, aValue : AnsiString;
   vCell : variant;
Begin
   Try
       vMSExcel := GetActiveOleObject('Excel.Application');
   Except
       vMSExcel := CreateOleObject('Excel.Application');
   End;
   aFileName := GetCurrentDir + '\' + 'CLASSEUR.XLS';
   vLink := unassigned;
   vReadOnly := true;
   vXLWorkbooks := vMSExcel.Workbooks;
   vXLWorkbook := vXLWorkbooks.Open(aFileName, vLink, vReadOnly);
   aSheetName := 'Impression';
   vWorksheet := vXLWorkbook.WorkSheets[aSheetName];
   aRange := 'A4';
   vCell := vWorksheet.Range[aRange];
   aValue := vCell.Value;
   ShowMessage(Format('Contenu de la cellule A4 : %s',[aValue])) ;
   vMSExcel.Quit;
   vMSExcel := unassigned;
End;

A+
Charly

Et pour se simplifier la vie, on peut utiliser une unité annexe :

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
unit ExcelByOLE;
 
{inspiré notamment de l'unité DriveOleExcel de bernard.lampert@libertysurf.fr, trouvée sur Phidels.com}
 
interface
 
procedure OpenClasseur(aFileName: string);
procedure CloseClasseur;
procedure SelectOnglet(aSheet: string);
function LireValeur(aCol: Char; aRow: integer): string;
procedure EcrireValeur(aCol: Char; aRow: integer; aValue: string);
procedure CouleurFond(aCol: Char; aRow: integer; aColorIndex: integer);
procedure SaveClasseur;
 
implementation
 
uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs,
  StdCtrls,ComObj, ExtCtrls, ExtDlgs;
 
var
  OleApplication, OleWorkBook: variant;
 
procedure OpenClasseur(aFileName: string);
begin
  // création du lien OLE pour la classe référencée par Excel dans la base de registre "Excel.Application"
  OleApplication := CreateOleObject('Excel.Application');
  OleApplication.Visible:=True; // pour rendre Excel visible
  OleWorkBook:=OleApplication.Workbooks.Open(aFileName);
end;   
 
procedure CloseClasseur;
begin
  try
    OleApplication.Quit;
    OleApplication:=Unassigned;
  except end;
end;
 
procedure SelectOnglet(aSheet: string);
begin
   OleWorkBook.Worksheets.Item[aSheet].Activate; //connexion à un onglet
end;
 
function LireValeur(aCol: Char; aRow: integer): string;
var
  NumCol: integer;
begin
  NumCol:=Ord(UpCase(aCol))-Ord('A')+1;
  Result:=OleApplication.Cells[aRow, NumCol].Value;
end;
 
procedure EcrireValeur(aCol: Char; aRow: integer; aValue: string);
var
  NumCol: integer;
begin
  NumCol:=Ord(UpCase(aCol))-Ord('A')+1;
  OleApplication.Cells[aRow, NumCol].Value:=aValue;
end;
 
procedure SaveClasseur;
begin
  OleApplication.ActiveWorkBook.Save;
end;
 
procedure CouleurFond(aCol: Char; aRow: integer; aColorIndex: integer);
var
  NumCol: integer;
begin
  NumCol:=Ord(UpCase(aCol))-Ord('A')+1;
  OleApplication.Cells[aRow, NumCol].Select;
  OleApplication.ActiveCell.Interior.ColorIndex:=aColorIndex;
end;
 
end.

Celle-ci, basique, sous D5, me suffisait.

13/03/2016, 10h35
Charly910
Oui, cette petite unité peut être très pratique.
Si bvsud préfère utiliser le code de la FAQ avec des indices de cellules, il suffit de faire :
Code:

1 2 3 4 ... aValue := vMSExcel.cells[2,3].value; ShowMessage(Format('Contenu de la cellule [2,3] : %s',[aValue])) ; ...
Charly

salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Procedure TDM.XlsEncadre(ExcelApp : OleVariant;RowDeb,ColDeb,RowFin,ColFin : Integer;Const arr : array of word;Taille : XLSSTYLETRAIT);
var
  i        : integer;
  BaseCell : OleVariant;
Begin
  BaseCell := ExcelApp.Range['A1','A1'];
	{------------------------------------------------------------------------------}
  ExcelApp.ActiveSheet.Range[BaseCell.Offset[RowDeb,ColDeb],BaseCell.Offset[RowFin,ColFin]].Select;
  for i:= low(arr) to high(arr) do
  begin
    ExcelApp.Selection.Borders[arr[i]].LineStyle := xlContinuous;
    ExcelApp.Selection.Borders[arr[i]].Weight := XlsArrayStyleTrait[Taille];
    ExcelApp.Selection.Borders[arr[i]].ColorIndex := xlAutomatic;
  end;
end;