xlswrite1 et nouvelle feuille

Bonjour,

Je me suis aperçu un peu tard de ce probleme, donc je ne sais pas si c'est vraiment lié à la fonction xlswrite1().

Je créais plusieurs feuilles dans une boucle for, de cette maniere:

Code:

---

1 2 3 4

for i=1:n feuille = nom_des_feuilles(i); xlswrite(fichier, donnees, feuille, range); end

---

Je suis passé à xlswrite1 sans rien modifier d'autre, et maintenant seule la nième feuille apparait dans le classeur, à croire que le (k+1) ieme remplace la k ieme.

Comment expliquer ça, est-ce à cause de xlswrite1?
Merci

EDIT: a priro ça ne vient pas de xlswrite1, j'ai essayé les deux methodes et les feuilles sont bien créées. Pourtant je passe bien dans ma boucle, elles devraient être créées... :?

Bonjour,

Citation:

---

Envoyé par Anduriel

Je suis passé à xlswrite1 sans rien modifier d'autre

---

Cela j'en doute vu qu'il te faut ajouter les lignes de la description créant la variable Excel et ouvrant le fichier.
Donc pourrais-tu nous montrer ces lignes inclues dans la boucle?

Après avoir isolé un peu tous les trucs j'en suis arrivé là en fait:

le invoke() qu'il faut utliser pour lancer l'instance Excel demande un fichier existant. Du coup j'ai créé un fichier Excel en faisant:

Code:

---

1 2	f = fopen('fichier.xls', 'w'); fclose(f);

---

Et tout vient de la à priori, il n'aime pas du tout... Quand je créé un fichier vierge à la main, aucun soucis.

Comment m'y prendre pour bien le créer?

Merci

Je te conseille de lire la description du fichier sur le FEX

Merci c'est (presque) parfait! J'étais passé par la il y a un certain temps en plus...

Je dis presque parce qu'il y a ces fameuses trois feuilles "Feuil1" "Feuil2" "Feuil3"... J'ai vu sur la doc msdn la fonction Delete de Worksheet, mais j'ai une erreur lorsque je fais:

Code:

---

ExcelWorkbook.Worksheet.Delete('Feuil2');

---

Je mélange sûrement des trucs là. Y a-t-il une solution?

Merci

Que souhaites-tu faire exactement avec cette ligne? Je ne vois pas le lien avec ce qui est dit plus haut.
Et comme toujours... quelle est l'erreur obtenue?

Citation:

---

Envoyé par Anduriel

Je mélange sûrement des trucs là. Y a-t-il une solution?

---

Une solution à quoi exactement?

Quand je créé le nouveau classeur, il contient par défaut trois feuilles nommées "Feuil1,2 et 3". Moi j'ajoute des feuilles par le code, qui s'ajoutent derrière ces trois feuilles, qui me sont inutiles.

J'ai tenté avec cette ligne de supprimer ces feuilles du classeurs, mais l'erreur (je ne l'ai plus exactement sous la main...) me dit que la commande n'existe pas.

L'objet correct est ExcelWorkbook.Worksheets.
Sinon essai ceci

Code:

---

1 2	i = % numéro ou nom de la feuille invoke(ExcelWorkbook.Sheets.Item(i),'Delete')

---

Ou une autre solution est de renommer au lieu de supprimer...

Code:

---

set(ExcelWorkbook.Sheets.Item(i),'Name','NouveauNom')

---

Merci pour ta réponse, je l'ai testée dans un cas où elle fonctionne mais pas dans un second. Dans le premier cas (fichier inexistant), je supprime à la suite du SaveAs (d'après le FEX), et ça fonctionne.

Dans le second cas, si le fichier existe déjà, je veux supprimer tous les onglets. Voila un code test que j'ai fait à part et qui ne fonctionne pas (je n'ai aucune erreur, mais aucun onglet n'est supprimé):

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

clc path_file = 'mon_fichier.xls';   Excel = actxserver ('Excel.Application'); ExcelWorkbook = invoke(Excel.Workbooks,'Open',path_file);   % ce qui suit est un test "en dur" ExcelWorkbook.Sheets.Count - 1 % 16 invoke(ExcelWorkbook.Sheets.Item(1),'Delete') % ... invoke(ExcelWorkbook.Sheets.Item(1),'Delete') ExcelWorkbook.Sheets.Count - 1 % toujours 16 % fin du test   % ce qui suit devrait être le code réel: on supprime le % premier onglet et lorsqu'il en reste 1 seul on le renomme. for i=1:ExcelWorkbook.Sheets.Count - 1 invoke(ExcelWorkbook.Sheets.Item(1),'Delete') end set(ExcelWorkbook.Sheets.Item(1),'Name','Ma_feuille')   ExcelWorkbook.Close(true); Excel.Quit Excel.delete clear Excel

---

Peux tu me dire si le code fonctionne chez toi?
Merci

Même le code que j'ai trouvé là:

http://www.mathworks.com/matlabcentr..._thread/243153

ne fonctionne pas...

EDIT: si ça peut aider j'ai remarqué que ça fonctionne à la suite d'un Add, mais pas d'un Open.

EDIT: J'ai finalement trouvé une solution, j'écrase simplement le fichier au lieu de l'ouvrir et de supprimer les onglets:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

% Ouverture de l'instance Excel Excel = actxserver ('Excel.Application');   % Création du fichier xls ExcelWorkbook = Excel.workbooks.Add;   % Suppression des feuilles existantes % On renomme le premier onglet ExcelWorkbook.Sheets.Item(1).Delete; ExcelWorkbook.Sheets.Item(1).Delete; set(ExcelWorkbook.Sheets.Item(1),'Name','Nom_Feuille')   % xlswrite1()   Excel.Application.DisplayAlerts = 0; ExcelWorkbook.SaveAs(path_file, 1); Excel.Application.DisplayAlerts = 1; Excel.Quit Excel.delete clear Excel

---

:)