Enregistrer au format .xls en ayant Excel 2007

Version imprimable

06/08/2009, 02h30
kryztof

Enregistrer au format .xls en ayant Excel 2007

Bonjour,
Ma question est la suivante : Comment fait-on pour enregistrer au format classeur Excel 1997-2003 (.xls) quand on a MS Office Excel 2007 ?
J'utilise la fonction xlswrite qui enregistre au format 2007 avec une extension .xls
Alors faute de savoir comment enregistrer au format 1997-2003 j'ai changé le ".xls" dans le fichier xlswrite.m en ".xlsx"
Mais ça m'oblige ensuite à ouvrir le classeur Excel pour le convertir au format 1997-2003 car je travaille ensuite sur des PC avec MS Office 2003.
Donc que pourrais-je modifier pour que ça enregistre directement au format Excel 1997-2003 ?
Merci pour vos idées :D
06/08/2009, 07h24
christophe_halgand

Mon idée serait d'écrire dans un fichier texte avec des séparateurs de colonne par tabulations (/t) et des séparateurs de lignes par des retours à la ligne (/n).

Ensuite tu ouvres ton fichier texte avec n'importe quel EXCEL où tu précises les séparateurs...

C'est une idée...

Christophe
06/08/2009, 08h33
Caro-Line

+1 avec Christophe.

Le plus simple étant d'utiliser CSVWRITE.

Si tu as envie de te prendre la tête sinon il faut :
- créer la macro correspondant au "sauver au format 2007" dans Excel
- appeler cette macro en utilisant ActiveX

:faq: Comment interfacer MATLAB avec Excel ?
06/08/2009, 08h55
sevyc64

Au moins 2 solutions :

- Utiliser ActiveWorkbook.SaveAs Filename:="D:\Documents\Excel\Classeur1.xls", FileFormat:=xlExcel8

- Installer sur les postes Office 2003, l'outil de conversion des format 2007, ainsi il sera possible d'ouvrir/enregistrer n'importe quel document Office 2007 avec le logiciel d'Office 2003 correspondant. L'outil est librement téléchargeable sur le site de Microsoft.
07/08/2009, 00h41
kryztof

Merci pour ces réponses :D

Mes données à stocker sont des tableaux contenant des chaîne de caractères et des valeurs numériques.

J'avais essayé la fonction csvwrite mais il me mettait "The input cell array cannot be converted to a matrix."
Un peu le même pb pour le mettre dans un fichier texte : Je pense devoir être obligé de passer par une fonction de bas niveau soit "fprintf" et de refaire mes tableaux avec :cry:
Il n'existe pas une fonction comme xlswrite qui me mette tout mon tableau dans un fichier .txt ?

Pour l'avant dernière solution :

Code:

ActiveWorkbook.SaveAs Filename:="D:\Documents\Excel\Classeur1.xls", FileFormat:=xlExcel8

où je met ces lignes de code ?

Pour l'utilisation d'ActiveX, essaie cette fonction que tu sauvegardes dans un fichier savexlsas.m :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 function savexlsas(xlspath,xlsname,vers) error(nargchk(2,3,nargin)) if nargin == 2 vers = 'xlExcel8'; end Excel = actxserver('Excel.Application'); set(Excel, 'Visible', 0); Workbooks = Excel.Workbooks; Workbook = invoke(Workbooks, 'Open',fullfile(xlspath,xlsname)); invoke(Workbook, 'SaveAs', 'myfile.xls',vers); invoke(Excel, 'Quit'); delete(Excel);
Pour un fichier dont le chemin serait D:\matlab\excel\test.xls tu l'appelles comme ceci :

Code:

savexlsas('D:\matlab\excel','test.xls')

Je ne l'ai pas testée puisque je suis sous Linux mais en gros c'est l'idée.

Pour plus d'informations sur ces commandes, regardes le lien correspondant dans le lien FAQ que Caroline t'a donné et tu dois chercher aussi dans la documentation Excel à la section Référence Visual Basic Microsoft Excel

Merci pour cette réponse Dut :D
J'ai essayé mais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ??? Invoke Error, Dispatch Exception: Source: Microsoft Office Excel Description: La méthode SaveAs de la classe Workbook a échoué. Help File: C:\Program Files\Microsoft Office\Office12\1036\XLMAIN11.CHM Help Context ID: 0 Error in ==> savexlsas at 16 invoke(Workbook, 'SaveAs', 'myfile.xls',vers); Error in ==> test at 3 savexlsas('C:\Users\cris\Documents\stage\excel', 'test.xls')
Pas de chance, il veut pas me lire le fichier XLMAIN11.CHM.
Sinon euh, en regardant la FAQ, je crois que j'ai voulu m'attaquer à quelque chose d'un peu compliqué pour moi.
Mais je vais persévérer....

D'après How can I save a workbook compatible with older version of Microsoft Excel using ACTXSERVER in MATLAB 7.4 (R2007a)? , il semblerait que la version soit donnée par un nombre

Essayons donc avec 43 :aie:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 function savexlsas(xlspath,xlsname,vers) error(nargchk(2,3,nargin)) if nargin == 2 vers = 43; end Excel = actxserver('Excel.Application'); set(Excel, 'Visible', 0); Workbooks = Excel.Workbooks; Workbook = invoke(Workbooks, 'Open',fullfile(xlspath,xlsname)); invoke(Workbook, 'SaveAs', 'myfile.xls',vers); invoke(Excel, 'Quit'); delete(Excel);
ou de façon plus moderne (semble-t-il :?)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 function savexlsas(xlspath,xlsname,vers) error(nargchk(2,3,nargin)) if nargin == 2 vers = 43; end xlsname = fullfile(xlspath,xlsname); Excel = actxserver('Excel.Application'); set(Excel, 'Visible', 0); workbook = Excel.Workbooks.Open(xlsname); workbook.SaveAs(xlsname,vers); Excel.Quit; delete(Excel);
Utilisation identique à la précédente version... à tester

08/08/2009, 19h50
kryztof

Merci Dut :D
Mais ça me met le même message d'erreur :cry:

J'ai essayé de reprendre avec ce qu'il y avait dans le lien que tu as cité et toujours pareil.

Ca pourrait venir du fait que je n'ai pas la même version de Matlab (j'ai R2008b) ou de Windows (j'ai Windows Vista) ?

Citation:

Envoyé par Dut

Essayons donc avec 43 :aie:

Voici à quoi devrait correspondre les valeurs chiffrées :
Code:

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 44 45 46 1 xlWorkbookNormal 2 xlSYLK 3 xlCurrentPlatformText 4 xlWKS 5 xlWK1 6 xlCSV 7 ######## 8 ######## 9 xlDIF 10 xlSYLK 11 ######## 12 ######## 13 ######## 14 ######## 15 xlWK3 16 xlExcel2 17 xlTemplate 18 xlWorkbookNormal 19 xlTextMac 20 xlCurrentPlatformText 21 xlTextMSDOS 22 xlCSVMac 23 xlCSV 24 xlCSVMSDOS 25 ######## 26 ######## 27 ######## 28 ######## 29 xlExcel3 30 xlWK1FMT 31 xlWK1ALL 32 xlWK3FM3 33 xlExcel4 34 xlWQ1 35 xlExcel4Workbook 36 xlTextPrinter 37 ######## 38 xlWK4 39 xlExcel5 40 ######## 41 ######## 42 xlUnicodeText 43 xlExcel9795 44 xlHtml 45 xlWebArchive 46 xlXMLSpreadsheet
Les ######## signifie que la valeur ne semble pas utilisée

Voir la signification des abréviations ici : http://msdn.microsoft.com/fr-fr/libr...ice.11%29.aspx (voir le tableau Members en milieu de page)

Pour informations, j'ai récupéré grosso-modo ces informations en chageant la valeur de vers dans le code ci-dessus et en récupérant la propriété FileFormat de l'objet workbook comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 Excel = actxserver('Excel.Application'); set(Excel, 'Visible', 0); workbook = Excel.Workbooks.Open(...) workbook.FileFormat Excel.Quit; delete(Excel);
Sinon le code ci-dessus semble bien fonctionner sur Windows XP et MS Office 2003

Par exemple, pour enregistrer directement un fichier xls au format csv :

Code:

savexlsas(pwd,'test.xls','test.csv',23)

Avec :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 function savexlsas(xlspath,xlsname,newxlsname,vers) error(nargchk(3,4,nargin)) if nargin == 3 vers = 43; end Excel = actxserver('Excel.Application'); set(Excel, 'Visible', 0); workbook = Excel.Workbooks.Open(fullfile(xlspath,xlsname)); try workbook.SaveAs(fullfile(xlspath,newxlsname),vers); Excel.Quit; delete(Excel); catch Excel.Quit; delete(Excel); error('Enregistrement Impossible') end
J'essaierai de l'améliorer si je trouve 5 minutes.
si certain pouvaient aussi tester ce code, ce serait super :ccool:

Et une petite fonction qui renvoi le type du fichier xls :

Code:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
function infos = xlsinfo(xlspath,xlsfile)
 
error(nargchk(2,2,nargin));
 
Excel = actxserver('Excel.Application');
set(Excel, 'Visible', 0);
workbook = Excel.Workbooks.Open(fullfile(xlspath,xlsfile));
 
 
infos.Path = workbook.Path;
infos.Name = workbook.Name;
infos.FileFormat = workbook.FileFormat;
infos.FileFormatDescription = getXlFileFormat(workbook.FileFormat);
 
Excel.Quit;
    delete(Excel);
 
 
 
function desc = getXlFileFormat(fmt)
 
XlFileFormat = {'xlAddIn'	'Microsoft Office Excel Add-In'
'xlCSV'	'Comma separated value'
'xlCSVMac'	'Comma separated value'
'xlCSVMSDOS'	'Comma separated value'
'xlCSVWindows'	'Comma separated value'
'xlCurrentPlatformText'	'Specifies a type of text format'
'xlDBF2'	'Dbase 2 format'
'xlDBF3'	'Dbase 3 format'
'xlDBF4'	'Dbase 4 format'
'xlDIF'	'Data Interchange format'
'xlExcel2'	'Excel version 2.0'
'xlExcel2FarEast'	'Excel version 2.0 far east'
'xlExcel3'	'Excel version 3.0'
'xlExcel4'	'Excel version 4.0'
'xlExcel4Workbook'	'Excel version 4.0. Workbook format'
'xlExcel5'	'Excel version 5.0'
'xlExcel7'	'Excel 95'
'xlExcel9795'	'Excel version 95 and 97'
'xlHtml'	'Web page format'
'xlIntlAddIn'	'Microsoft Office Excel Add-In international format'
'xlIntlMacro'	'Deprecated format'
'xlSYLK'	'Symbolic link format'
'xlTemplate'	'Excel template format'
'xlTextMac'	'Specifies a type of text format'
'xlTextMSDOS'	'Specifies a type of text format'
'xlTextPrinter'	'Specifies a type of text format'
'xlTextWindows'	'Specifies a type of text format'
'xlUnicodeText'	'Specifies a type of text format'
'xlWebArchive'	'MHT format'
'xlWJ2WD1'	'Deprecated format'
'xlWJ3'	'Deprecated format'
'xlWJ3FJ3'	'Deprecated format'
'xlWK1'	'Lotus 1-2-3 format'
'xlWK1ALL'	'Lotus 1-2-3 format'
'xlWK1FMT'	'Lotus 1-2-3 format'
'xlWK3'	'Lotus 1-2-3 format'
'xlWK3FM3'	'Lotus 1-2-3 format'
'xlWK4'	'Lotus 1-2-3 format'
'xlWKS'	'Lotus 1-2-3 format'
'xlWorkbookNormal'	'Excel workbook format'
'xlWorks2FarEast'	'Microsoft Works 2.0 format'
'xlWQ1'	'Quattro Pro format'
'xlXMLSpreadsheet'	'Excel Spreadsheet format'};
 
idx = strcmp(fmt,XlFileFormat(:,1));
 
if any(idx)
    desc = XlFileFormat{idx,2};
else desc = 'undefined';
end

Tout ça reste à tester et à améliorer ;)

18/08/2009, 15h57
Jerome Briot

Arf... j'aurais dû mieux lire la page sur msdn :

Citation:

Development Platforms
Windows XP Home Edition, Windows XP Professional, Windows Server 2003, and Windows 2000

Ce qui semble donc bien exclure Vista :?