Ubuntu-fr

xcxl

[RESOLU]Remplacement de "FileDialog" dans une macro linux

Bnojour,
Je suis en train de faire des macro VB avec Open Office et je voudrai mettre la commande qui ouvre une fenetre de selection de fichier. Que faut il utiliser pour le faire?

Dernière modification par xcxl (Le 29/12/2006, à 13:29)

xcxl

Re : [RESOLU]Remplacement de "FileDialog" dans une macro linux

up

xcxl

Re : [RESOLU]Remplacement de "FileDialog" dans une macro linux

Je vais bien trouver quelqu'un qui sait programmer VBA quand même (cest pas si dur)....

PB68

Re : [RESOLU]Remplacement de "FileDialog" dans une macro linux

Télécharge ce fichier PDF et va à la page 367. Cela correspond peut-être à ce que tu cherches.

PB68

---

Si ça t'aide, ça me fait plaisir

xcxl

Re : [RESOLU]Remplacement de "FileDialog" dans une macro linux

Merci. Mon probleme est que ce code genere l'erreur "the external file picker does not run".
Apres quelque recherche, un allemand a parlé d'une option qu'il fallait activer dans le menu, mais comme j'ai kke difficulté en allemand, c'est pas facile....

La page : http://de.openoffice.info/viewtopic.php?p=40368

Si tu comprend quel menu c'est sa m'aide beaucoup.
Merci

xcxl

Re : [RESOLU]Remplacement de "FileDialog" dans une macro linux

Sa yest j'ai trouvé!!

Il faut rajouter 2-3 ligne d'initialisation (fileopensimple et initialize) !
Ex :

Sub ChoisirFichier
Dim monDocument As Object
Dim FP As Object
Dim mesFichiers() As String
Dim maFeuille As Object
Dim RepertoireDoc As String
Dim NomFichier As String
Dim CheminNomFichier As String
dim FPtype(0)

monDocument = thisComponent
FP = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
FPtype(0) = com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE
FP.initialize(FPType())

With FP
  .DisplayDirectory = ConvertToURL(RepertoireDoc)
  .Title = "Selectionnez un fichier"  
  FP.appendFilter("Fichier image",".jpg")
  if .Execute = _
      com.sun.star.ui.dialogs.ExecutableDialogResults.OK then
    mesFichiers() = .Files ' tableau de 1 élément String
    CheminNomFichier = mesFichiers(0)
	msgBox(ConvertFromURL(CheminNomFichier),,"Sélection fichier")
  Else
    Exit Sub  
  End if
  .dispose
End With

End sub

PS: Sympa ton hamster PB68

Dernière modification par xcxl (Le 29/12/2006, à 13:29)