OLE Excel - Supprimer une ligne

Version imprimable

Bonjour,
j'ai un petit problème pour supprimer une ligne dans "excel".

Voici mon code :
Code:

1 2 3 4 5 6 7 vMSExcel := CreateOleObject ('Excel.Application'); ... aFileName := ExtractFilePath(Application.ExeName)+'liste.xlsx'; // Path+'liste.xls' -> contient la base de donnée vXLWorkbooks := vMSExcel.Workbooks; vXLWorkbook := vXLWorkbooks.Open(aFileName); aSheetName := 'liste'; // Onglet 'liste' dans le classeur Excel vWorksheet := vXLWorkbook.WorkSheets[aSheetName];
-> vmsexcel.ActiveSheet.Rows.Delete; Marche .... supprime toutes les lignes .... Mon classeur est vide :-( bof bof comme solution.
-> vmsexcel.ActiveSheet.Rows(1).Delete; ne marche pas .... me dit "Membre introuvable" même si je défini manuellement de nom de la feuille.
Pour info : Windows 10 / Delphi XE / Excel 2016
Si quelqu'un a une idée....

08/10/2020, 12h01
SergioMaster

Bonjour,

je suis loin d'être un spécialiste d'OLE et encore moins d'Excel aussi suis-je allé sur la FAQ https://delphi.developpez.com/faq/?p...r-des-cellules

AMHA ce que j'en déduit : MaFeuille.Cells.Item[2,2].EntireRow.Delete(xlShiftDown); supprimera la ligne 1 mais je peux me tromper n'ayant pas Excel sur mon poste, intestable

mais je pense aussi que Rows est un tableau peut-être que vmsexcel.ActiveSheet.Rows[1].Delete serait juste (et plus simple)
08/10/2020, 14h19
Pascal_

D'abord merci pour ton aide,

MaFeuille.Cells.Item[2,2].EntireRow.Delete(xlShiftDown); ne fonctionne pas il accepte msexcel.Activesheet.Cells.Item(2,2).EntireRow.Delete; mais toujours un "Membre introuvable".
J'ai essayé vmsExcel.ActiveWorkBook.ActiveSheet.Rows(1).Delete; pareil (pourtant c'est détaillé).

"Je pense aussi que Rows est un tableau peut-être que vmsexcel.ActiveSheet.Rows[1].Delete serait juste " -> Delphi XE n'accepte pas [1] ce doit être (1) , mais toujours un "membre introuvable" :fou:
Je me demande si par hazard mon delphi ne serait pas "trop vieux" pour excel 2016 , c'est bête , mais j'en suis arrivé a cette idée car je ne comprend pas pourquoi ca ne marche pas alors que ca me semble bon.
08/10/2020, 14h35
ShaiLeTroll

vWorksheet et ActiveSheet c'est certains que c'est le bon onglet ?

Code:

vWorksheet.Rows.Item(1).EntireRow.Delete
08/10/2020, 14h49
SergioMaster

En tout cas j'ai eu la curiosité de regarder dans d'autres forums (simple google avec les mot clés Delphi+Excel+delete+row) et reste conforté sur les []
maintenant, Excel2016, tableau xlsx cela fait peut-être une différence du coup j'ai pensé au composant CData Excel j'en avais fait quelques tests interessants mais en butant sur quelques trucs
08/10/2020, 17h01
Pascal_

Citation:

Envoyé par ShaiLeTroll

vWorksheet et ActiveSheet c'est certains que c'est le bon onglet ?

Code:

vWorksheet.Rows.Item(1).EntireRow.Delete

Il me semble que OUi puisque quand j'y accède par (truc:=vmsexcel.cells.item[i,3]; par exemple) je lit bien la bonne valeur. Mon fichier Excel n'a : que "1" fiche nommée 'liste' , "300" lignes et "16" colonnes.

vWorksheet.Rows.Item(1).EntireRow.Delete retourne encore "membre introuvable" alors que je peux lire , écrire et tout effacer sans problème.

Bonsoir Pascal_

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure TForm1.Button1Click(Sender: TObject);
var
  vMSExcel                 : variant;
  aFileName                : string;
  vXLWorkbook, vXLWorkbooks: variant;
  aSheetName               : AnsiString;
  vWorksheet               : variant;
  vCell                    : variant;
 
begin
  vMSExcel := CreateOleObject('Excel.Application');
  vMSExcel.Visible := true;
 
  aFileName := 'D:\Privé\Classeur1.xlsx'; // Path+'liste.xls' -> contient la base de donnée
  vXLWorkbooks := vMSExcel.Workbooks;
  vXLWorkbook := vXLWorkbooks.Open(aFileName);
  aSheetName := 'liste'; // Onglet 'liste' dans le classeur Excel
  vWorksheet := vXLWorkbook.WorkSheets[aSheetName];
 
  vCell := vWorksheet.Range['A1'];
  vCell.entireRow.Delete;
end;

Fonctionne chez moi...
Cordialement

08/10/2020, 21h05
Pascal_

Merci beaucoup pour ta solution , ca fonctionne très bien ! :ccool:

Un grand merci a toi et aux autres participants d'avoir bien voulu m'accorder du temps , maintenant mon projet est presque terminé grâce a vous.

Pour info : mon programme rempli des fiches ".PDF" avec des données Excel.