Discussion :

[mehat]

Salut pour tout,

je voulus savoir comment détecter la version d'Excel ou d'office installer ?

j'ai fais se bout de code

Code :

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

1
2
3
4
if Format = tXlsFormat then
FileFormat := varNull
else 
FileFormat := xlCSV ;

mais ceci ne marche pas sur des version d,excel ulterieur a 2007

est ce quelqu'un peut m'aider et merci d'avance.

[ShaiLeTroll]

Pourquoi faire compliquer ?

Code :

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

1
2
3
4
5
var
  ExcelApp: OleVariant;
...
  ExcelApp := CreateOleObject('Excel.Application');
  ShowMessage(Format('Excel Version %s: ', [ExcelApp.Version]));

[mehat]

Merci pour votre réponse sa marche,

[bozeclair]

Salut

je cherche à savoir dans quelle version est enregistré le classeur.

avez vous une idée ?

merci

[ShaiLeTroll]

WorkBook dans la MSDN

Tu as Format ou FileFormat dans le WorkBook, il te te renvoie l'énumération
XlFileFormat !

On peut espérer que cette propriété existe depuis le début de Excel


Sinon le plus approchant CalculationVersion, en espérant qu'il n'est pas recalculé par la version ouvrante !
Un Fichier Excel généré par TMS FlexCell par exemple, les calculs ne sont pas mis à jour lors des modifications, à l'époque, j'avais trouvé la parade en ouvrant un Excel masqué, cela modifiait le fichier actif, puis un SaveAs pour récupérer le fichier (tout en veillant à conserver le format binaire xls même sous Excel 2007)
Une fois le fichier enregistré, le ouverture suivante ne provoquait pas de modification, on peut donc espérer que la version reste la bonne!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  ExcelApp: OleVariant;
  vXLWorkbooks, vXLWorkbook : variant;
  aFileName : AnsiString;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ShowMessage(Format('Excel Version %s: ', [ExcelApp.Version]));
 
  aFileName := 'c:\Home\Sources\Delphi\classeur1.xls';
  vXLWorkbooks := vMSExcel.Workbooks;
  vXLWorkbook := vXLWorkbooks.Open(vFileName);
 
  ShowMessage(Format('Fichier Excel Version %d: ', [vXLWorkbook.CalculationVersion])); 
end;

[bozeclair]

merci....

j'ai trouver aussi FileFormat

je doit vérifier à l'ouverture du classeur que celui ci est bien au format excel 97-2003.

et ça doit marcher avec excel 97,2003,2007,2010

je sèche un peu...

[ShaiLeTroll]

Pourrais-tu proposer le code que tu as déjà fait ?
L'énumération XlFileFormat contient d'autres valeur tel que xlOpenXMLWorkbook qui correpond au Fichier XSL XML de 2007, consulte l'excellent site d'astuce Excel de rondebruin

[mehat]

Salut ,
J'ai eu aussi un problème dans le saveas file as Excel File , j'ai fais ce traitement il me semble que sa marche je le tester seulement sur excel 2007

Code :

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

1
2
3
4
5
6
7
8
9
10
 
if Format = tXlsFormat then
         begin
            if (GetExcelVersion = '8.0') or (GetExcelVersion = '7.0')  then
               FileFormat := xlExcel9795
            else
             FileFormat := varNull;
         end
 else
    FileFormat := xlCSV ;

Est ce que est vrai ce que j'ai fait 8O