Discussion :

[birdyz]

Bonjour à tous

J'ai fait un petit utilitaire afin de convertir des fichiers Excel en CSV. J'ai consulté la FAQ, et ca donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
      try
        vMSExcel := GetActiveOleObject('Excel.Application');
      except
        vMSExcel := CreateOleObject('Excel.Application');
        vMSExcel.Visible := true;
      end;
 
      vXLWorkbooks := vMSExcel.Workbooks;
      vXLWorkbook := vXLWorkbooks.Open(slFile[i]);
 
      sFileDest := ExtractFilePath(ParamStr(0)) + 'CSV\' + ChangeFileExt(ExtractFileName(slFile[i]), '.');
      if FileExists(sFileDest) then
        DeleteFile(sFileDest);
 
      vXLWorkbook.SaveAs(sFileDest, xlText, false);

Tout fonctionne bien. Mais mon soucis est que j'ai environ 300 - 400 fichiers a traiter en même temps, donc ce code est utilisé dans une boucle. Mes fichiers sont bien convertit en CSV, mais je me retrouve avec 300 - 400 instances d'Excel ouvertes .

J'ai donc rajouter ceci :

Code :

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

1
2
3
 
    vMSExcel.Quit;
    vMSExcel := unassigned;

et ca ferme bien Excel. Sauf que Excel réagit comme il se doit, a savoir que comme le fichier est en CSV, il me demande si je veux l'enregistrer pour le sauvegarder au format XLS (Voulez vous enregistrez les modification apportées ...).

Est ce que je peux empécher la demande d'enregistrement autrement que par le réenregistrer en XLS après l'enregistrement en CSV ?

Merci d'avance
Birdyz

[TicTacToe]

Peut-être avec ceci:

Code :

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

ExcelApplication.DisplayAlerts[ lcid ] := False;

...

[birdyz]

Ben en fait, je n'ai pas de ExcelApplication
J'ai suivi ce qu'il y avait dans la FAQ, et ma variable vMSExcel est de type variant et non TExcelApplication. J'ai essayé de la transtypé, mais Delphi en veux pas

[TicTacToe]

et

Code :

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

vMSExcel.DisplayAlerts[...] :=

ne fontionne pas pas ? peut-être sans le lcid

Code :

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

vMSExcel.DisplayAlerts :=

sinon je sais pas, effectivement moi j'utilise toujours le composant de la barre d'outils qui encapsule

et j'utilise le DisplayAlerts qui marche bien et qui supprime les messages de confirmation de sauvegarde...

[birdyz]

ca marche pas. Je vais regarder du coté de ExcelApplication. Je connais pas, mais je vais creuser un peu. Je reviendrai peut etre reposer une ou deux questions

[Laurent Dardenne]

Salut,

mais je me retrouve avec 300 - 400 instances d'Excel ouvertes .

Tu ne dois ouvrir qu'une seule instance du serveur et boucler sur le traitement des fichiers, ainsi le temps de traitement sera réduit.
Concernant les paramètres de la méthode SaveAs, as-tu consulté la doc en ligne d'Excel ?

[birdyz]

En fait, que je mette ceci

Code :

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

1
2
3
4
5
6
7
 
      try
        vMSExcel := GetActiveOleObject('Excel.Application');
      except
        vMSExcel := CreateOleObject('Excel.Application');
        vMSExcel.Visible := true;
      end;

dans la boucle, ou avanrt la boucle, ca ne change rien, il m'ouvre Excel plusieurs fois. En fin, Excel n'est ouvert qu'une fois, mais apparait dans la barre des tache avec le chiffre 400 car les 400 fichiers sont ouverts. Et comme je n'arrive pas a les refermer !!!
Mais pour finir, l'exe ne servira a priori plus jamais, donc je vais pas me cassé la tête avec, j'ai d'autre choses à faire

Birdyz.

PS : Je fait quoi du topic. Délestage ?