Question sur le pilotage d'excel à partir de Delphi

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:

---

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.

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

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 :)

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

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

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+

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:

---

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 ?

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

A+
Charly

Code:

---

vXLWorkbooks := vMSExcel.vXLWorkbooks;

---

est en fait la ligne erronée

Bonjour youce90,

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

Code:

---

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

Citation:

---

Envoyé par tourlourou

Code:

---

vXLWorkbooks := vMSExcel.vXLWorkbooks;

---

est en fait la ligne erronée

---

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

Code:

---

vXLWorkbooks := vMSExcel.Workbooks;

---

Merci !

Citation:

---

Envoyé par Charly910

Bonjour youce90,

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

Code:

---

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 :)

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.

Bonjour,

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

Code:

---

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