Enregistrer un fichier Calc Open office

Bonjour, j'ai touver sur le FAQ de C++ Builder le code suivant pour fermer avec une sauvegarde des modifications, d'un document Calc sous open office :

Code :

Citation:

---

// ici on ferme le document avec ou sans sauvegarde
vOOoDocument.OleFunction("close", false); // true
vOOoDocument = Unassigned();

---

J'exécute ces instructions lors de l'appui sur un bouton. Le document se ferme bien, mais les modifications ne sont pas enregistrées. J'ai tenté en remplaçant "false" par "true", mais ça ne change rien.
Comment résoudre ce problème?
Est-il possible de sauvegarder à partir de la boite de dialogue enregistrer sous d'OpenOffice Calc?

J'utilise la version 3.0 d'openOffice.

Merci

Salut BruiserTu peux essayer ceci

Citation:

---

// sauvegarde
Variant vOOoparametres;
// on recompose le chemin avant de sauvegarder le fichier
AnsiString FileName = "file:///";
FileName += "D:/";
FileName += "essai1.sxc";
FileName = StringReplace(FileName,"\\","/",TReplaceFlags()<< rfReplaceAll << rfIgnoreCase);
int Bounds[2] = {0,-1};
vOOoparametres = VarArrayCreate(Bounds, 1, varVariant);
vOOoDocument.OleFunction ("storeAsURL", FileName.c_str(), vOOoparametres);

---

Merci beaucoup sa marche:yaisse2:. Je me doutais vaguement que cela pouvait venir du chemin de sauvegarde mais par contre j'étais loin de pensé à cette solution (noob inside:oops:).

Cette solution est bien pratique, mais elle ne me permet pas de choisir l'endroit où je souhaite sauvegarder. Je reviens donc à ma deuxième question :
Est-il possible d'appeler la boite de dialogue enregistrer sous d'OpenOffice Calc?

Tu peut en appeler une depuis ton programme en utilisant le composant TSaveDialog si tu veut ;)

Cela fait seulement une semaine et demi que je connais et travail sur BCB6 et donc je ne connais pas encore bien sont fonctionnement, même si ce forum m'a permit d'en apprendre déjà beaucoup de chose en peut de temps.

Le composant TSaveDialog me parait pas mal, je l'ai testé pour enregistrer le contenu d'un TMemo de la façon suivante :

Citation:

---

TSaveDialog* TSD_Save = new TSaveDialog(this);
TSD_Save->InitialDir = "C:\\";
TSD_Save->Title = "Enregistrer sous...";
TSD_Save->Filter = "Fichiers Html (*.html)|*.HTML";
TSD_Save->FileName = "test.html";
if (TSD_Save->Execute())
Memo1->Lines->SaveToFile(TSD_Save->FileName);

---

Mais je ne vois pas trop comment l'utiliser pour enregistrer mon fichier Calc OpenOffice. Comme un grand naïf que je suis :aie:, j'ai tenté ceci :

Citation:

---

TSaveDialog* TSD_Save = new TSaveDialog(this);
TSD_Save->InitialDir = "C:\\";
TSD_Save->Title = "Enregistrer sous...";
TSD_Save->Filter = "Fichiers Ods (*.ods)|*.ODS";
TSD_Save->FileName = "Fichier.ods";
if (TSD_Save->Execute())
vOOoDocument->SaveToFile(TSD_Save->FileName);

---

Mais comme je m'y attendais ça ne marche pas.

Il faut simplement reprendre le code de blondelle et de remplacer le chemin du fichier par la TSaveDialog, ici ton chemin de fichier est stocké dans FileName, c'est donc cette variable que tu doit remplacer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

// sauvegarde Variant vOOoparametres; TSaveDialog* TSD_Save = new TSaveDialog(this); TSD_Save->InitialDir = "C:\\"; TSD_Save->Title = "Enregistrer sous..."; TSD_Save->Filter = "Fichiers Ods (*.ods)|*.ODS"; TSD_Save->FileName = "Fichier.ods"; if (TSD_Save->Execute()) { int Bounds[2] = {0,-1}; vOOoparametres = VarArrayCreate(Bounds, 1, varVariant); vOOoDocument.OleFunction ("storeAsURL", TSD_Save->FileName.c_str(), vOOoparametres); }

---

La boite de dialogue enregister sous s'ouvre bien, mais mon programme plante quand je clique sur enregistrer :(.

Dans le code tel qu'il est donne il est possible de choisir le disque et le chemin

Code:

---

1 2 3 4 5

// choix du disque FileName += "D:/"; // choix du chemin FileName += "essai1.sxc";

---

En fait le chemin qu'Openoffice attend c'est

Citation:

---

"file:///D:/essai1.sxc"

---

celui que tu passe est comme ceci

Citation:

---

"C:\\essai1.sxc"

---

d'ou l'erreur, il faut ajouter au debut de chaine "file:///" et modifier les "\\" en "/" voir la fonction StringReplace

J'ai utilisé vos indications pour procéder différemment, mais d'une manière qui correspond à ce que je voulais faire.

Je fait une copie de mon fichier open office qui me sert de model avec un TSaveDialog, je modifie mon nouveau fichier, je ferme le fichier en sauvegardant les modifications.

Tout marche bien ou presque... J'ai configuré mon TSaveDialog pour qu'il me propose un nom de fichier lorsque je veux enregistrer la copie de mon fichier. Mais le problème est que si je change ce nom dans la fenêtre Enregistrer sous (quand je l'utilise mon programme), il ne met plus l'extension que j'ai configurer dans le TSaveDialog et le fichier est créer sans extension. Si je souhaite utiliser un nom différent je suis obliger d'écrire l'extention à la suite nom. Comment résoudre ce problème??

Voici mon code :

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

//Copie du Fichier AnsiString Temp_URL="P:\\TestOpenOffice1\\Fichier.ods"; AnsiString NewTemp_URL;   TSaveDialog* TSD_Save = new TSaveDialog(this); TSD_Save->InitialDir = "C:\\"; TSD_Save->Title = "Enregistrer sous..."; TSD_Save->Filter = "Fichiers Ods (*.ods)|*.ODS"; TSD_Save->FileName = "Fichier1.ods";   if (TSD_Save->Execute()) {   if (!CopyFile(Temp_URL.c_str(), TSD_Save->FileName.c_str(), true)) { ShowMessage("Impossible de déplacer"); } } // récupération de l'url du nouveau fichier NewTemp_URL= TSD_Save->FileName.c_str();   {... ouverture et modification de mon nouveau fichier ... }     Variant vOOoparametres; // on recompose le chemin avant de sauvegarder le fichier   vOOoparametres = VarArrayCreate(Bounds, 1, varVariant); vOOoDocument.OleFunction ("storeAsURL", OoFileName.c_str(), vOOoparametres);   //Fermeture et sauvegarde vOOoDocument.OleFunction("close", false); vOOoDocument = Unassigned;

---

En faisant quelque chose comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

TSaveDialog* TSD_Save = new TSaveDialog(this); TSD_Save->InitialDir = "C:\\"; TSD_Save->Title = "Enregistrer sous..."; TSD_Save->Filter = "Fichiers Ods (*.ods)|*.ODS"; //TSD_Save->FileName = "Fichier1.ods"; if (TSD_Save->Execute()) { String FilePath = TSD_Save->FileName; Memo1->Lines->SaveToFile(FilePath + ".ods"); // a adapter }

---

Ok merci, je testerai ça dans une semaine car je suis stagiaire en alternance et cette semaine j'ai cours donc je ne pourrai pas travailler sur mon programme qui est le sujet de mon stage. Donc je vous donnes rendez-vous dans une semaine pour le verdict :mrgreen:.

Edit :

J'ai pas pu résister à l'envie de tester quand même, donc sa marche bien, mais... car j'aime bien complexifier la chose, je ne peut pas utiliser plusieurs extension différente. Comment faut-il faire pour qu'il utilise l'extension que l'on choisit dans lors de la sauvegarde.

Ce n'est pas vitale pour mon projet, c'est plus pour ma culture.8-)

Apres avoir recuperer le chemin avec TSaveDialog et modification a l'aide de StringReplace tu peu sauvegarder a l'aide de ce code

Citation:

---

// fonction enregistrer sous
int Bounds[2] = {0, -1};
Variant fichsave = VarArrayCreate(Bounds, 1, varVariant);
vOOoDocument.OleFunction("storeAsUrl", "file:///D:/ooOcalcOoo/essai10.ods", fichsave);

---

ce qui donne avec un TsaveDialog

Citation:

---

String path;
TSaveDialog* TSD_Save = new TSaveDialog(this);
TSD_Save->InitialDir = "C:\\";
TSD_Save->Title = "Enregistrer sous...";
TSD_Save->Filter = "Fichiers Ods (*.ods)|*.ODS";
TSD_Save->FileName = "Fichier.ods";
if (TSD_Save->Execute())
{
path = TSD_Save->FileName;
path = StringReplace(path,"\\","/",TReplaceFlags()<< rfReplaceAll << rfIgnoreCase);
path = "file:///" + path;
}
// fonction enregistrer sous
int Bounds[2] = {0, -1};
Variant fichsave = VarArrayCreate(Bounds, 1, varVariant);
vOOoDocument.OleFunction("storeAsUrl", path.c_str(), fichsave);

---

Merci pour tout, Je n'ai pas vraiment compris le code de ton dernier message blondelle, mais de toute façon je suis arrivé a faire ce que je voulais au départ 8-). Il me reste encore ma dernière question auquel je n'ai pas trouvé de solution, mais je verrai plus si j'en ai vraiment besoin.

Je reviens sur ce que j'ai dit, je viens de comprendre ton dernier code blondelle, je suis un peut long à la détente:roll:.
Je viens de m'apercevoir d'un petit souci, plutôt que d'enregistrer au format .ods avec Open Office, je voudrai enregistrer au format .xls avec Open Office pour que l'utilisateur ait le choix d'utiliser Open office ou Excel. Le problème c'est que le faite rajouté l'extension .xls à la fin du nom du fichier n'est pas suffisant, car lors de l'enregistrement le fichier est crypter au format .ods mais avec l'extension .xls, il est donc impossible de l'ouvrir avec Excel.
Comment peut-on choisir le format de sauvegarde d'open office?

L'enregistrement dans un format autre (XL, PDF ...) demande un filtrage.

Le paramètre vOOoparametres (cf 1ère réponse de Blondelle) doit être utilisé :
passez Bounds à {0,0}
Créez une propriété (avec "Bridge_getStruct") dont le nom "Name" est "FilterName" et "Value" est "MS Excel 97";
Intégrez la dans vOOoparametres; appelez ensuite SaveAsURL avec ce paramètre et le tour est joué.

Vous pouvez de cette manière créer des pdf, il suffit d'utiliser le bon filtre (Voir site OpenOffice pour les différentes possibilités).

Grille! :P
Bon je mais le code avec le Filtre Excel ou PDF

Code:

---

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

String path; TSaveDialog* TSD_Save = new TSaveDialog(this); TSD_Save->InitialDir = "C:\\"; TSD_Save->Title = "Enregistrer sous..."; TSD_Save->Filter = "Fichiers Ods (*.ods)|*.ODS"; TSD_Save->FileName = "Fichier_xls.xls"; if (TSD_Save->Execute()) { path = TSD_Save->FileName; path = StringReplace(path,"<a href="file://\\","/",TReplaceFlags" target="_blank">\\","/",TReplaceFlags</a>()<< rfReplaceAll << rfIgnoreCase); path = "<a href="file:///" target="_blank">file:///</a>" + path; } // fonction enregistrer sous Variant vOOoPrSousxls = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); vOOoPrSousxls.OlePropertySet("Name","FilterName"); vOOoPrSousxls.OlePropertySet("Value","MS Excel 97"); // pour le format PDF "Value" = "writer_pdf_Export" int Bounds[2] = {0, 0}; Variant fichsave = VarArrayCreate(Bounds, 1, varVariant); fichsave.PutElement(vOOoPrSousxls,0); // vOOoDocument.OleFunction("storeAsUrl", WideString(path), fichsave); // pour path declare en variant vOOoDocument.OleFunction("storeAsUrl", path.c_str(), fichsave); // pour path declare en string

---

Magnifique, c'est parfait, merci beaucoup les gars.:king:
Par contre le pdf ne marche pas:?, peut être que le nom du filtre n'est pas le bon, mais ce n'est pas grave.

Edit : je viens de faire une recherche sur internet et le filtre semble bon

L'export pdf fonctionne bien, mais pour un doc Calc il faut utiliser "Calc_pdf_Export".