Discussion :

[Patrice740]

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 :

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

Voici le fichier : Test dialog.ods

Quelqu'un saurait-il pourquoi ?
Serait-ce un bug ?
A défaut, y aurait-il une solution alternative ?

[Patrice740]

Bonjour le fil,

Quelqu'un saurait-il pourquoi ?
Serait-ce un bug ?
A défaut, y aurait-il une solution alternative ?

Je pose les questions et j'y réponds
Après plusieurs essais infructueux avec FilePicker et SystemFilePicker,
j'ai opté pour une alternative : utiliser OfficeFilePicker moins esthétique mais entièrement fonctionnel.


Voici le code :

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.OfficeFilePicker") 
    dlgArgs(0) = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE
    With dlg
        .Initialize(dlgArgs()) 
        .setTitle("Choisir le dossier de destination")
        .appendFilter("Calc Documents", "*.ods")
        .CurrentFilter = "Calc Documents"
        .setDisplayDirectory(url)
        .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

[Bidouille]

Le code joint fonctionne comme attendu sous AOO 4.1.6 et Windows 7

[Patrice740]

Le code joint fonctionne comme attendu sous AOO 4.1.6 et Windows 7

Ce n'est pas le cas avec Libre Office 6.2.7.1 et Windows 10-1903 (32 bits)