Bonjour,
Je débute avec LO Basic (avec Libre Office 6.2.7.1) et
je n'arrive pas à définir le nom par défaut du fichier dans une boite FilePicker, il n'apparaît pas dans la boite de dialogue
Avec ce code :
Voici le fichier : Test dialog.ods
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 Sub DemanderNomFichier Dim dlgArgs(0) as Integer Dim dlg as Object 'dialogs.FilePicker Dim url as string 'url fichier macro Dim nom as string 'nom fichier ' nom du fichier nom = "Mon fichier.ods" ' url du répertoire courant url = ThisComponent.getURL() url = urlDossierParent(url) ' boite de dialogue dlg = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") dlgArgs(0) = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE With dlg .Initialize(dlgArgs()) .setTitle("Choisir le dossier de destination") .CurrentFilter = "Calc Documents" .setDisplayDirectory(url) .appendFilter("Calc Documents", "*.ods") .setDefaultName(nom) End With ' - affiche la boîte de dialogue "Ouvrir" If dlg.Execute() <> 1 Then Exit Sub Msgbox ConvertFromUrl(dlg.Files(0)) End Sub Function urlDossierParent(sUrl as String) Dim s As String Dim n As Long s = sUrl For n = Len(s) To 1 Step -1 If Mid(s, n, 1) = "/" Then Exit For Next n urlDossierParent = Left(s, n - 1) End Function
Quelqu'un saurait-il pourquoi ?
Serait-ce un bug ?
A défaut, y aurait-il une solution alternative ?
Partager