Discussion :

[dimdidi]

Bonjour,

Je recherche sous Delphi 7 comment supprimer une feuille sous excel sans avoir le message de confirmation (Excel est caché)
car en caché il ne pose pas la question, mais malheureusement il ne fait pas l'action.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var 
    MonClasseur:_Workbook;
    MaFeuille : _Worksheet;
    eaExcel: TExcelApplication;
begin
    eaExcel.Connect;
    eaExcel.Visible[0]:=false;
    MonClasseur:=eaExcel.Workbooks.Open('Fichier.xls',false, false,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
 
  MaFeuille:=MonClasseur.Worksheets[MonClasseur.Worksheets.Count] as _worksheet;
  MaFeuille.Delete(0);
 
end;

Si quelqu'un a un idée ????

Merci d'avance


PS : question deja poser sur le forum mais qui malheureusement n'existe plus
"A un moment elle doit supprimer une feuille du classeur mais a ce moment la , excel
me dit que la suppression sera definitive et je dois cliquer sur OK comment"


[Modération]
Merci d'utiliser les balises code ou quote,Laurent Dardenne
[/Modération]

[rbh]

Salut
En fait, il faut demander à Excel de n'afficher aucun message:

Code :

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

1
2
 
eaExcel.DisplayAlerts := False;

Attention à bien le remettre True après, car si tu oublie, Excel ne te propose plus d'enregistrer un fichier modifié que tu ferme.

[dimdidi]

Merci
ca marche nickel

Et pourtant j'ai cherché.