Discussion :

[SYL666]

Bonjour,
Je debute en Macro Open Office (je debute en macro tout court d'ailleur)

C'est donc ma premiere macro et j'ai encore un peu du mal a comprendre l'esprit Open Office BASIC.
Ma macro lit et traite ce qu'il y a dans un fichier texte pour l'insere dans un document sDraw.

Pour le moment, seul le fichier C:\data.txt est ouvert, et j'aimerai remplacer ca par un choix de l'utilisateur, via un simple dialogue "ouvrir" comme on en trouve dans tout les logiciels.

.... Mais en BASIC.... j'ai pas trouver. J'ai essaye pas mal de trucs pourtant

-- J'ai trouve un service com.sun.star.ui.dialogs.FilePicker, mais pas moyen de l'instancier

-- Je suis passe par la faq developpez.com :

Code :

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

1
2
3
4
5
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
 
'Définit le contrôle "Sélection de fichier" dans la boîte de dialogue.
oFichier = oDialog1.getControl("FileControl1")

--> Property or Method not found pendant le CreateUnoDialog

-- La doc officielle (notez le jeu de mot de merde) ne donne pas de reelle indiquations pour les dialogues de fichiers....

-- google ne m'a pas appris grand chose d'autre

D'ou mes questions :
- Comment faire une selection de fichier par l'utilisateur
- Les dialogs en Open Office.... comment ca marche?

[SYL666]

J'ai trouve ceci dans un autre forum :

Code :

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

1
2
3
4
5
6
7
8
function FileOpenDialog(title as String) as String
   dim filepicker, files
   filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
   filepicker.Title = title
   filepicker.execute()
   files = filepicker.getFiles()
   FileOpenDialog=files(0)
End function

Et le pire, c'est que ca marche.
Je me doutais que je trouverai un truc la dessus un jour....

Par contre, entre les createUnoService, createUnoDialog et autres Doc.createInstance je ne m'y retrouve plus, qui fait quoi?