Discussion :

[martineaston]

Bonjour,

Je remplis un fichier Excel depuis Matlab et j'y suis bien arrivée jusqu'à maintenant mais ce qui me chagrine c'est que je remplis une quinzaine de feuilles et toujours de la meme manière (couleur et mise en page)
Partant de la j'ai voulu créer une fonction qui remplie mes feuilles automatiquement avec les parametres de ma fonction.

ma fonction commence comme ça :

Code :

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

1
2
3
4
5
function g = write_sheet(sheet, sheet_name, vector, axe, legend, picture_path, title, subtitle)
 
Excel = actxserver('Excel.Application');
ActiveSheet = Excel.Worksheets.Item(sheet);
ActiveSheet.Name = sheet_name;

mais Matlab me retourne l'erreur suivante :

Code :

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

1
2
3
4
Error: Object returned error code: 0x800A03EC
 
Error in write_sheet (line 8)
ActiveSheet = Excel.Worksheets.Item(sheet);

J'ai remarqué que quand je met directement le numero comme ceci :

Code :

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

ActiveSheet = Excel.Worksheets.Item(1);

mon code fonctionne...

Une solution?
Merci par avance

[Jerome Briot]

Les feuilles de calcul existent-elles dans le classeur avant l'entrée dans ta fonction ?

Que contient la variable sheet ?
Un nombre entier dans l'intervalle [1 15] si je comprends bien

Si ce n'est pas le cas, je te propose cette variante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function g = write_sheet(sheet, sheet_name, vector, axe, legend, picture_path, title, subtitle)
 
Excel = actxserver('Excel.Application');
 
Workbook = Excel.Workbooks.Add;
 
if sheet<=Excel.Worksheets.Count
    ActiveSheet = Excel.Worksheets.Item(sheet);
else
    ActiveSheet = Excel.Worksheets.Add();
end
 
...

[martineaston]

1) oui les feuilles existent deja avant (j'en ai 13 en tout)

2) sheet c'est le numéro de la feuille oui. C'est bien un entier. J'ecris ceci en faite :

Code :

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

g = write_sheet(1, sheet_name, vector, axe, legend, picture_path, title, subtitle)

Et d'ailleurs j'ai remarqué que si j'écris par exemple :

Code :

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

1
2
r = 'B4:C5';
range = ActiveSheet.Range(r);

ça me retourne la même erreur, alors que si j'écris cela :

Code :

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

range = ActiveSheet.Range('B4:C5');

ça fonctionne...

[Jerome Briot]

Vérifie quand même le nombre de feuille à l'ouverture de l'application :

Code :

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

Excel.Worksheets.Count

[martineaston]

Navrée pour le temps de réponse et effectivement ta solution fonctionne. Je n'étais pas à mon bureau quand je t'ai répondu je ne pouvais pas tester... Mais ce qui m'étonne c'est qu'avant de lancer cette fonction j'écris déjà 3 feuilles et j'avais ajouté 10 feuilles donc je ne pensais pas que l'erreur venait de là..

Enfin bref c'est résolu et je te remercie

Bonne journée

[martineaston]

Juste une petite chose, pour que les feuilles soient dans l'ordre :

Code :

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

1
2
3
4
5
6
7
if sheet<=Excel.Worksheets.Count
    ActiveSheet = Excel.Worksheets.Item(sheet);
else
    sheet2 = Excel.Worksheets.Item(Excel.Worksheets.Count);
    Excel.Sheets.Add([], sheet2, 1);
    ActiveSheet = Excel.Worksheets.Item(Excel.Worksheets.Count);
end

[Jerome Briot]

Tout est expliqué dans ce tutoriel : Gestion des feuilles