Impossible de fermer un classeur Excel [Résolu]

[seremei]

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 ?

[seremei]

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.

[coucoucmoi]

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;

[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.

[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

[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