Discussion :

[youce90]

Bonsoir à tous !

j'essaye depuis quelques jours de comprendre comment manipuler les fichiers excel
depuis une application Delphi, là j'arrive à la recherche, et je trouve des exemples que j'essaye
d’exécuter:

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
Var MonClasseur : _workbook; 
    MaFeuille :_Worksheet; 
    rMaPlage : ExcelRange; 
    Adresse : wideString; 
begin 
  ExcelApplication1.Connect; 
  MonClasseur:=ExcelApplication1.Workbooks.Open('c:\tutoriel\tuto.xls',False,False, 
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, 
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0); 
  ExcelApplication1.Visible[0]:=true; 
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet; 
  rMaPlage:=MaFeuille.Cells.Find('toto',EmptyParam,xlValues,xlPart, 
               xlByRows,xlNext,EmptyParam,EmptyParam); 
  if not (rMaPlage = nil) then 
  begin 
    Adresse:=rMaPlage.Address[true,true,xlR1C1,false,false]; 
    showmessage(adresse); 
    repeat 
      rMaPlage:=MaFeuille.Cells.FindNext(rMaPlage); 
      showmessage(adresse); 
    Until (rMaPlage = nil) or (Adresse=rMaPlage.Address[true,true,xlR1C1,false,false]) 
  end; 
end;

ce que je n'arrive pas à comprendre c'est : "_worksheet", "_workbook"
d’après la syntaxe ce sont des types de données, mais le compilateur ne les reconnait pas.
j'aimerai avoir des Clarification sur ce point.

Merci.

[SergioMaster]

Bonjour,

AMHA vous avez repris le code d'un endroit quelconque mais pas en entier (peut être un fichier de déclaration manquant).
_workheet et _workbook sont certainement déclarés comme Variant quelque part. Les unités ComObj et Variants seront peut être aussi nécessaire dans la liste des uses

[youce90]

Merci SergioMaster,
voilà d'ou j'ai eu ce code:
https://delphi.developpez.com/faq/?p...che-dans-Excel
comme ça vous allez mieux comprendre

[Charly910]

Bonjour,
sans utiliser TExcelApplication, comme dans la FAQ, tu peux faire :

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
44
45
46
47
48
49
50
51
52
53
54
Uses ComObj ;
...
procedure TForm1.Btn_ExcelClick(Sender: TObject);
Const
  xlValues = -4163 ;
  xlPart = 2 ;
  xlByRows = 1 ;
  xlNext = 1 ;
  xlR1C1 = -4150 ;
  xlA1   = 1 ;
var
  vMSExcel : variant;
  vXLWorkbooks, vXLWorkbook : variant;
  aFileName : AnsiString;
  vSaveChanges : variant;
  aSheetName : AnsiString;
  vWorksheet : variant;
  aRange : Variant ;
  vCell : variant;
  Adresse : WideString ;
 
begin
  // Ouverture d'Excel
  try
    vMSExcel := GetActiveOleObject('Excel.Application');
  except
    vMSExcel := CreateOleObject('Excel.Application') ;
  end;
 
  // Ouverture du classeur
  aFileName := ExtractFilePath(Application.ExeName)+ 'Classeur1.xls' ;
  vXLWorkbooks := vMSExcel.Workbooks ;
  vXLWorkbook := vXLWorkbooks.Open(aFileName) ;
  // Ouverture de la feuille du classeur
  aSheetName := 'Feuil1';
  vWorksheet := vXLWorkbook.WorkSheets[aSheetName];
 
  aRange := vWorksheet.Cells.Find('toto',EmptyParam,xlValues,xlPart,
              xlByRows,xlNext,EmptyParam,EmptyParam);
 
  Adresse:=aRange.Address[true,true,xlA1,false,false];
  Showmessage(adresse);
  vMSExcel.Visible := true ;
  ShowMessage('Fermeture d''Excel');
 
  vXLWorkbook.Save ;  // Sauvegarde des modifications
  vSaveChanges := False;  // Unassigned : demande à l'utilisateur
  vXLWorkbook.Close(vSaveChanges, aFileName);
 
  //  Fermeture d'Excel
  vMSExcel.Quit ;
  vMSExcel := unassigned ;
 
end;

A+

[youce90]

Merci pr ta réponse Charly910
l'intégralité du code est bien compilée,
en revanche, la fonction EXTRACTFILEPATH n'a pas bien fonctionné:
"Fichier excel introuvable";

donc j'ai effectué quelques modifications (concernant l'ouverture du classeur);
en se basant sur des exemples précédents dans la F.A.Q:

Code :

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

1
2
3
4
5
  vMSExcel.Visible  := False;
  vXLWorkbooks := vMSExcel.vXLWorkbooks;
  afilename := 'C:\Users\Youcef\Desktop\classeur1.xlsx';
  vXLWorkbooks := vMSExcel.Workbooks ;
  vXLWorkbook := vXLWorkbooks.Open(aFileName);

tout est bien compilé, mais quand j’exécute le programme (clic sur le bouton),
j'obtiens l'erreur:
"Méthode 'vXLWorkbooks' non supportée par l'objet Automation"

Qu'est ce qu'il faut rectifier ?

[Charly910]

Bonjour,
ExtractFilePath est dans l'unité SysUtils (au moins à partir de D7)

A+
Charly

[tourlourou]

Code :

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

  vXLWorkbooks := vMSExcel.vXLWorkbooks;

est en fait la ligne erronée

[Charly910]

Bonjour youce90,

pourquoi ne reprends tu pas mon code en changeant seulement la ligne d'affectation de aFilename par

Code :

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

afilename := 'C:\Users\Youcef\Desktop\classeur1.xlsx';

:

Cela devrait fonctionner ? (mais je n'ai pas testé avec un Xlsx, seulement avec un xls)

A+
Charly

[youce90]

Code :

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

  vXLWorkbooks := vMSExcel.vXLWorkbooks;

est en fait la ligne erronée

Bien remarqué tourlourou
oui ! ça fonctionne après modification

Code :

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

  vXLWorkbooks := vMSExcel.Workbooks;

Merci !

[youce90]

Bonjour youce90,

pourquoi ne reprends tu pas mon code en changeant seulement la ligne d'affectation de aFilename par

Code :

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

afilename := 'C:\Users\Youcef\Desktop\classeur1.xlsx';

:

Cela devrait fonctionner ? (mais je n'ai pas testé avec un Xlsx, seulement avec un xls)

A+
Charly

Effectivement ! ça fonctionne aussi pour les XLSX...
Merci infiniment Charly910

[youce90]

Merci pour vos réponses messieurs !

j'aimerai profiter encore de votre savoir, et passer au niveau suivant de la recherche:

comment peut-on gérer plusieurs occurrences de la même valeur recherchée (dans une même feuille Excel) ?
c'est à dire: continuer à rechercher au lieu de s’arrêter après la 1 ère occurrence.
est ce que c'est faisable toujours avec la fonction FIND ?

Merci.

[Charly910]

Bonjour,

avec mon code, tu peux faire ceci pour trouver les 'toto' suivants :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  aRange := vWorksheet.Cells.Find('toto',EmptyParam,xlValues,xlPart,
              xlByRows,xlNext,EmptyParam,EmptyParam);
 
  Adresse:=aRange.Address[true,true,xlA1,false,false];
//  Showmessage(adresse);
  Adresse1 := Adresse ;
    Repeat
      showmessage(adresse);
      aRange:=vWorksheet.Cells.FindNext(aRange);
      Adresse:=aRange.Address[true,true,xlA1,false,false];
    Until (Adresse=Adresse1) ;

A+
Charly