Suite au précédent post, je sais désormais utiliser la fonction folder picker et récupérer le résultat dans la procédure.
Cependant, dans mon programme, j'ai 2 répertoires que je souhaite personnalisé.
Après de nombreux tests, j'arrive à obtenir le résultat voulu avec ce code, mais ca me semble un peu lourd et pas nécessairement utile de faire 2 fonctions qui renvoient un folderpicker (Cf PJ)
Code : Tout sélectionner
REM ***** BASIC *****
Global RepPersoEdition as string
Global RepPersoSauvegarde as string
Sub TestRep
Dim PathEdition as String
Dim PathSauvegarde as String
If RepPersoEdition <> "" Then
PathEdition = RepPersoEdition
Else PathEdition = ConvertToURL("C:/Users/" & environ("USERNAME") & "/Downloads")
End if
Print "Le chemin du repertoire EDITION est " & PathEdition
If RepPersoSauvegarde <> "" Then
PathSauvegarde = RepPersoSauvegarde
Else PathSauvegarde = "c:\Temp"
End if
Print "Le chemin du repertoire SAUVEGARDE est " & PathSauvegarde
End sub
Function ChoixRepEdition
Dim FP as object
ChoixRepEdition = ""
FP = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
FP.DisplayDirectory = ConvertToURL("C:/Users/" & environ("USERNAME") & "/Downloads")
FP.Description = "blabla"
FP.Title = "Choisissez le répertoire"
If FP.execute = _
com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then
ChoixRepEdition = FP.Directory
End If
RepPersoEdition = ChoixRepEdition
End Function
Function ChoixRepSauvegarde
Dim FP as object
ChoixRepSauvegarde = ""
FP = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
FP.DisplayDirectory = ConvertToURL("C:/Temp")
FP.Description = "blabla"
FP.Title = "Choisissez le répertoire"
If FP.execute = _
com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then
ChoixRepSauvegarde = FP.Directory
End If
RepPersoSauvegarde = ChoixRepSauvegarde
End Function
https://wiki.openoffice.org/wiki/FR/Doc ... _Functions
et le chapitre 3.6.1 Arguments de Andrew Pitonyak
Est ce que cela est possible ?? si oui je suis preneur de pistes ou d'exemples.
