Impossible de fermer un classeur Excel

Version imprimable

Bonjour,

Je dois pour mon travail traiter un fichier Excel. Mais déjà dès le début je tombe sur une problème que je n'arrive pas à traiter. Lorsque je souhaite fermer un classeur Excel que j'ai ouvert je me retrouve avec un (ou plusieurs) messages d'erreur.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 ExcelApplication:= CreateOleObject('Excel.Application'); try Classeurs:= ExcelApplication.Workbooks; ClasseurA3Conseil:= Classeurs.Open(EditNomFichierExcel.Text); ExcelApplication.Visible:= True; finally Classeurs.Close(False, emptyparam,emptyparam,0); ExcelApplication.Quit; ExcelApplication:= unassigned; end;
A priori cela devrai fonctionner, non ?
Lorsque j'exécute j'ai le message d'erreur suivant :
"Le projet Import à provoqué une classe d'exception EOLESysError avec le message 'Nombre de paramètres non valide'. Processus stoppé."
quand je valide il point sur la ligne

Code:

Classeurs.Close(False, emptyparam,emptyparam,0);

Le close sans argument fonctionne mais normalement je ne dois pas afficher excel puisque je dois seulement récupérer les valeurs dans les cells. Et je souhaite ne pas sauvegarder à la fermeture. J'ai cherché sur le site et le forum je ne vois pas de solution, même avec les réponses sur le forum à des problèmes similaires je me retrouve avec des erreurs.

Quelqu'un aurais une solution ?

J'ai finalement réussi à trouver une solution.

Code:

1
2
3
4
5
6
7
8
9
10
11
ExcelApplication:= CreateOleObject('Excel.Application');
  try
    // on ouvre le fichier choisi par l'utilisateur
    Classeur:= ExcelApplication.Workbooks.Open(EditNomFichierExcel.Text, unassigned, True);
    //traitement effectué à venir
  finally
    Classeur.Close(False, 0); // fermeture du classeur
    ExcelApplication.Quit; // fermeture de l'application
    ExcelApplication:= unassigned; // libération de la mémoire
    _MessageDlg('Le traitement à été effectué avec succès', mtInformation, [mbOk], 0);
  end;

Je ne sais pas pourquoi mais il ne fallait que deux paramètres dans le close donc si quelqu'un à une explication je me sentirais moins bête.

Bonjour, je viens de faire un test et tu a un peu tout mélangé.
Ce n'est pas ton objet classeurs qu'il faut fermé, mais le classeur ouvert!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApplication, Classeurs,ClasseurA3Conseil : Variant;
  vClose : Variant;
begin
  vClose := False;
  ExcelApplication:= CreateOleObject('Excel.Application');
  try
    Classeurs:= ExcelApplication.Workbooks;
    ClasseurA3Conseil:= Classeurs.Open('c:\test.xls');
    ExcelApplication.Visible:= True;
  finally
    ClasseurA3Conseil.Close(vClose,'c:\test.xls');
    ExcelApplication.Quit;
    ExcelApplication:= unassigned;
  end;
end;

08/01/2013, 11h04
seremei

Merci coucoucmoi.
Saurais-tu m'expliquer pourquoi il ne faille que deux argument dans le close. Je me suis aidé à la base de http://delphi.developpez.com/faq/?page=excelclasseur
avec

Code:

MonClasseur.Close(False, emptyparam,emptyparam,0);

du coup cela me générais une erreur.
08/01/2013, 11h26
coucoucmoi

Dans ton lien, classeur est défini en _workbook qui lui, veut plus les arguments.

Toi tu passes par des variant, donc lis plutot ce tuto :
http://lfe.developpez.com/PasExcel/#L1
08/01/2013, 11h29
seremei

je l'utilise maintenant mais je ne l'ai trouvé qu'après maintenant ça fonctionne correctement et je peux continuer mon travail.

Merci beaucoup