Discussion :

[hdreport]

Bonjour,

je rencontre des problème lors de l'enregistrement d'un document excel généré par mon programme.

je suis me suis inspiré de ces deux sources pour coder :

http://lfe.developpez.com/Excel/
http://cpp.developpez.com/faq/bcb/?p...elworkbooksave

donc mon 1ere problème est lorsque je fourni le chemin d'enregistrement a partir d'un variable j'ai une jolie exception..

voici mon code :

Code :

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

1
2
3
4
5
FileFormat = -4143;
    vSaveChanges = true ;
    vFileName = AnsiString(CheminSortie+"SaveName.xls").c_str();
 
    vXLWorkbook.OleFunction("Close", vSaveChanges, vFileName,FileFormat);

Chemin sortie est un ansiString contenant le chemin du répertoire de destination.

si j'écris vFileName = "c:\\SaveName.xls"; mon fichier s'enregistre correctement sans erreur..

par contre , et c'est la mon 2e problème, lorsque j'ouvre le fichier génér avec excel celui ci me dit que que le format ne correspond pas l'extension et me demande si je veux quand même l'ouvrir .
quel réglage a l'enregistrement faut'il faire pour ne plus avoir se probleme de format et donc ce message??
je suis sous office 2010.


merci de votre aide

cordialement

édit: le 1er problème est résolue, ca marche forcement moins bien quand on donne pas un chemin valide...

par contre le2e problème est toujours d'actualité..

merci

[ShaiLeTroll]

Pour les chemins, il faut utiliser des chaines compatibles COM, genre BSTR, ça doit être des WideString et non AnsiString

Pour le problème de Format et d'Extension, c'est normal, Excel 2010 par défaut utilise un fichier XML et non l'ancien format binaire
Il faut forcer le type, voir http://www.rondebruin.nl/saveas.htm
J'ai un code en Delphi qui en est inspiré, mais je n'ai pas encore eu le temps de tester sour Excel 2010 (je n'ai que Word 2000 sur mon poste, et j'ai pas du tout envie d'en changer)

Mon chef de projet, normalement l'a testé sur plein différentes versions d'OS et d'Excel, il semble que cela fonctionne !

Je modifie le Fichier Excel par TMS FlexCell, je change des valeurs, mais cela ne réactualise par les Calculs, j'ai fait cette fonction pour fournir un fichier Excel propre avec les calculs déjà effectués ...

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
procedure TCensure.FinalizeExcelFile(const TmpExcelFileName: string; const FinalExcelFileName: string);
const
  Excel2000WorkbookNormal = $FFFFEFD1; // ou -4143
var
  ExcelOLE: OLEVariant;
  SaveAsFileName, FinalizedExcelFileName: string;
begin
  try
    // Code en LateBinding !
    ExcelOLE := ComObj.CreateOleObject('Excel.Application');
    try
      ExcelOLE.UserControl := False;
      ExcelOLE.Visible := False;
      ExcelOLE.WorkBooks.Open(TmpExcelFileName);
 
      SaveAsFileName := ChangeFileExt(ExtractFilePath(TmpExcelFileName) + ExtractFileName(FinalExcelFileName), '.xls');
      if FileExists(SaveAsFileName) then
        DeleteFile(SaveAsFileName);
 
      if CompareVersion(ExcelOLE.Version, '12') < 0 then
        ExcelOLE.ActiveWorkBook.SaveAs(Filename := SaveAsFileName, FileFormat := Excel2000WorkbookNormal)
      else
        ExcelOLE.ActiveWorkBook.SaveAs(Filename := SaveAsFileName, FileFormat := 56); // http://www.rondebruin.nl/saveas.htm
 
      ExcelOLE.ActiveWorkBook.Close(SaveChanges := False);
 
      FinalizedExcelFileName := ChangeFileExt(SaveAsFileName, ExtractFileExt(FinalExcelFileName));
      if not SameText(ExtractFileExt(FinalizedExcelFileName), ExtractFileExt(SaveAsFileName)) then
        RenameFile(SaveAsFileName, FinalizedExcelFileName);
 
      FExtracteurInVS.ArchiveFile(FinalizedExcelFileName);
 
      DeleteFile(TmpExcelFileName);
    finally
      ExcelOLE := Unassigned;
    end;
  except
    on E: Exception do
      raise ECensureError.CreateFmt('Erreur durant la Consolidation du Fichier Excel %s : %s', [ExtractFileName(FinalExcelFileName), E.Message]);
  end;
 
  FExportedFileNameList.Add(FinalizedExcelFileName);
end;

[hdreport]

merci pour ton aide mais même avec fileformat = 56 j'ai ce message de format...

par contre comment fait on en c++ pour récupérer la version d'excel avec OLE?

[blondelle]

Salut hdreport
Peut etre comme ceci (XP pack2 Excel2003)

Code :

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

1
2
3
4
5
6
7
8
9
 
vMSExcel = Variant::CreateObject("Excel.Application");
        vMSExcel.OlePropertySet("Visible", true);
                vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
                        vXLWorkbook = vXLWorkbooks.OleFunction("Add");
                vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
 
// affichage version Excel
Label1->Caption = vMSExcel.OlePropertyGet("Version");

[hdreport]

parfait merci c'est nikel!

par contre j'ai toujours de message de format lors de l'ouverture du fichier excel que mon programme génère.. même en mettant 56 pour le format..

[blondelle]

Sur les dernieres versions d'Excel l'extension n'est plus " .xls " a verifier sur un document Excel cree par Excel

[hdreport]

problème résolue merci