Enregistrer un fichier Calc Open office

**Bruiser** · 26/01/2009, 10h23

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 :

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

**blondelle** · 28/01/2009, 13h09

Salut BruiserTu peux essayer ceci

// 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);

**Bruiser** · 28/01/2009, 14h29

Merci beaucoup sa marche

. Je me doutais vaguement que cela pouvait venir du chemin de sauvegarde mais par contre j'étais loin de pensé à cette solution (noob inside

).

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?

**pottiez** · 28/01/2009, 15h03

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

**Bruiser** · 28/01/2009, 16h09

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 :

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

, j'ai tenté ceci :

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.

**pottiez** · 28/01/2009, 16h16

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 :

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

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);
}

**Bruiser** · 28/01/2009, 16h36

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

.

**blondelle** · 28/01/2009, 16h50

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

Code :

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

1
2
3
4
5
 
// choix du disque
FileName += "D:/";
// choix du chemin
FileName += "essai1.sxc";

**blondelle** · 28/01/2009, 17h59

En fait le chemin qu'Openoffice attend c'est

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

celui que tu passe est comme ceci

"C:\\essai1.sxc"

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

**Bruiser** · 30/01/2009, 14h08

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 :

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

**blondelle** · 30/01/2009, 18h03

En faisant quelque chose comme ceci

Code :

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

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
}

**Bruiser** · 31/01/2009, 12h05

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

.

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.

**blondelle** · 01/02/2009, 22h31

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

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

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

**Bruiser** · 11/02/2009, 14h31

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

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

**Bruiser** · 13/02/2009, 09h53

Je reviens sur ce que j'ai dit, je viens de comprendre ton dernier code blondelle, je suis un peut long à la détente

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

**TABZ** · 13/02/2009, 12h45

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

**blondelle** · 13/02/2009, 12h59

Grille!

Bon je mais le code avec le Filtre Excel ou PDF

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

**Bruiser** · 13/02/2009, 13h07

Magnifique, c'est parfait, merci beaucoup les gars.

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

**TABZ** · 15/02/2009, 17h22

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

Enregistrer un fichier Calc Open office

C++Builder

Discussions similaires

Partager

Partager