Récupérer la valeur d'une cellule du tableur OOo

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

---

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.

Un petit tour par la :faq:

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

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.

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

S'il vous plait...

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

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

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

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

Code:

---

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