Enregistrer au format .xls en ayant Excel 2007

**kryztof** · 06/08/2009, 02h30

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

**christophe_halgand** · 06/08/2009, 07h24

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

**Caro-Line** · 06/08/2009, 08h33

+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

Comment interfacer MATLAB avec Excel ?

**sevyc64** · 06/08/2009, 08h55

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.

**kryztof** · 07/08/2009, 00h41

Merci pour ces réponses

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

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 :

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

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

où je met ces lignes de code ?

**Jerome Briot** · 07/08/2009, 08h34

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

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

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

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

**kryztof** · 08/08/2009, 00h39

Merci pour cette réponse Dut

J'ai essayé mais

Code :

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

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

**Jerome Briot** · 08/08/2009, 09h22

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

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

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

**kryztof** · 08/08/2009, 19h50

Merci Dut

Mais ça me met le même message d'erreur

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) ?

**Jerome Briot** · 18/08/2009, 15h25

Envoyé par Dut

Essayons donc avec 43

Voici à quoi devrait correspondre les valeurs chiffrées :

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

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

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

**Jerome Briot** · 18/08/2009, 15h34

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

Code :

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

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

Avec :

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

**Jerome Briot** · 18/08/2009, 15h54

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

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