Discussion :

[jjnoui]

Bonjour à tous.

Je suis à la recherche d'une piste pour utiliser les API de LibreOffice (Calc) depuis un programme créé avec Lazarus sur Ubuntu.
Je n'ai personnellement rien trouvé en Lazarus ou Delphi (même sous Windows ).

Merci et bonne journée.

[Chrispi]

Bonjour jjnoui,

Un lien qui pourrait peut-être t'intéresser :

https://wiki.freepascal.org/Office_Automation/fr

En espérant que ça pourra t'aider...

[jjnoui]

Bonjour Chrispy.

Lors de mes recherches je suis aussi tombé sur ce site.
Et à première vue cela ne semblait concerner que l'usage sous Windows et je n'ai pas vu qu'on pouvait l'utiliser avec Lazarus.
Ta réponse me donne le courage de fouiller davantage.
Je me donne quelques jours pour clôturer ce post avec résolu ou non.
Merci.

[jurassic pork]

Hello,
j'ai bien quelque chose à te proposer mais c'est en passant par du python et par le package lazarus Python4Lazarus. Connais-tu le langage Python ?
Ami calmant, J.P

[jjnoui]

bonjour J.P.
Désolé, je ne pratique pas ce langage
Merci quand même.
Enfin si je ne résouds pas mon problème et si j'ai un peu de courage je me lancerais peut-être (ça fait beaucoup de si, non?)

[jjnoui]

Ayant un petit peu galéré pour arriver à un premier petit résultat, je vous livre mon vécu

Les liens qui m'ont aidé (en plus des réponses à mon post), merci à Chrispi et à jurassik pork

https://wiki.lazarus.freepascal.org/...heet:_Examples : Source honteusement pompé pour faire mon test

https://wiki.lazarus.freepascal.org/FPSpreadsheet : la doc de base
Petit exemple complet (?) mais perfectible pour gérer via lazarus sous ubuntu les fichiers Excel, Open/libre Office.

Pour l'installation:

aller sur https://sourceforge.net/projects/lazarus-ccr/

cliquer sur l'onglet files

sélectionner le dossier FPSpreadsheet

une fois le téléchargement terminé,
aller dans le dossier de téléchargement
sélectionner le fichier fpspreadsheet-1.14.zip (version actuelle)
dézipper ce fichier dans un dossier

il faut ensuite ouvrir Lazarus pour installer ?????
C'est la partie qui me pause encore des problèmes :
Pour ma part la mauvaise méthode est :
1 cliquer sur onglet Paquet
2 cliquer sur ouvrir un fichier de paquet(.lpk)
3 sélectionner le fichier laz_fpspreadsheet.lpk (issu du 'dézippage' de fpspreadsheet-1.14.zip)
4 cliquer sur compiler

Redémarrer Lazarus (on se sait jamais)

créer le petit programme de test en dapatant les répertoires et noms de fichiers.

Le source qui suit permet de convertir un fichier issu d'Open/Libre Office vers Excel.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit XlstoOds;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  fpstypes, fpspreadsheet, fpsallformats;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
const
  INPUT_FORMAT = sfOpenDocument;
  OUTPUT_FORMAT = sfExcel8;
 
var
  MyWorkbook: TsWorkbook;
  MyDir: string;
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Initialization
  MyDir := ExtractFilePath(ParamStr(0));
  // Convert the spreadsheet
  MyWorkbook := TsWorkbook.Create;
  try
    MyWorkbook.ReadFromFile(MyDir + 'premier.ods', INPUT_FORMAT);
    MyWorkbook.WriteToFile(MyDir + 'second.xls', OUTPUT_FORMAT);
  finally
    MyWorkbook.Free;
  end;
end;
 
end.

Toute proposition de correction de cette méthode sera la bienvenue