Discussion :

[manubrard]

[WIN32][D2005][LANGAGE]Récupérer la valeur d'une cellule du tableur OOo

Bonjour tout le monde,

Voila mon soucis, j'aimerais pourvoir extraire des valeurs (type entier) d'une cellule d'une feuille de calcul d'openOffice. Je sais que pour ecrire une valeur dans une cellule, on utilise

Code :

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

MaCellule.SetValue(...)

Mais je n'arrive pas trouver comment on fait pour la récuparation de valeur d'une cellule.

Merci d'avance à ceux qui prendront la peine de m'aider.

[qi130]

Un petit tour par la

http://delphi.developpez.com/faq/?page=opencellules

[manubrard]

Je suis déjà aller dans la FAQ et la page que tu m'indiques ne me permet pas de récupérer une valeur, elle montre comment affecter une valeur à une cellule avec la propriété "SetValue"

Est-ce qu'une fonction "GetValue" existe ?

Merci quand même d'avoir répondu.

[manubrard]

Personne ne connait ce petit bout de code qui m'empêche d'avancer.

S'il vous plait...

[MFDev]

Allons, allons une petite recherche sous google donne déjà:
http://www.google.fr/search?hl=fr&cr...tvalue&spell=1
Il faut d'abord se donner un peu de mal avant d'appeler à l'aide...
@+

[manubrard]

Après une recherche intensive, j'ai rien trouvé concernant la récupération de valeur d'une cellule d'un tableur openoffice. La solution que m'a proposé MFDev ne fonctionne que pour visualbasic et pas pour delphi.

J'ai aussi fouillé la FAQ, je n'ai rien trouvé concernant ce point précis. Je trouve bien comment écrire dans une cellule mais pas comment récupérer la valeur d'une cellule.


Merci d'avance

[qi130]

As-tu essayé ce qui est mentionné dans cette
http://delphi.developpez.com/faq/?pa...xcelfeucellule :

[MFDev]

Salut,
Je n'ai jamais travaillé avec OpenOffice, j'ai donc essayé rapidement, voilà ce que cela donne:

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
 
procedure TForm1.btnConnectClick(Sender: TObject);
 begin
  ConnectOpenOffice; // établir la connexion, si pas déjà fait
  // New Calc
  Document := StarDesktop.LoadComponentFromURL( 'private:factory/scalc', '_blank', 0,  DummyArray);
  MonClasseur := Document.getSheets;
 end;
 
procedure TForm1.btnWriteClick(Sender: TObject);
 begin
	MaFeuille := MonClasseur.GetByName('Feuille1');
	Cellule := Mafeuille.getCellByPosition(0, 0);
	Cellule.SetValue(123);
 end;
 
procedure TForm1.btnReadClick(Sender: TObject);
 begin
	MaFeuille := MonClasseur.GetByName('Feuille1');
	Cellule := Mafeuille.getCellByPosition(0, 0);
	edValue.Text := Cellule.GetValue;
 end;

Aucun problème particulier, c'est bien GetValue...
J'ai trouvé ça, si cela peut t'aider:
http://fr.openoffice.org/Documentati...o/indexht.html
Tu recherches 'Delphi_OOo' dans la page,et charges le fichier ZIP.
Voilà, et si tu maîtrise bien OpenOffice, penses à la FAQ...
@+
Fabrice