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

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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....