Contenu | Rechercher | Menus

Annonce

Si vous avez des soucis pour rester connecté, déconnectez-vous puis reconnectez-vous depuis ce lien en cochant la case
Me connecter automatiquement lors de mes prochaines visites.

À propos de l'équipe du forum.

#1 Le 22/11/2006, à 16:05

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)

Hors ligne

#2 Le 06/12/2006, à 12:13

xcxl

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

up

Hors ligne

#3 Le 28/12/2006, à 15:18

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)....

Hors ligne

#4 Le 28/12/2006, à 17:45

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 smile


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

Hors ligne

#5 Le 29/12/2006, à 13:18

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

Hors ligne

#6 Le 29/12/2006, à 13:27

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)

Hors ligne