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