Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.
Modérateur :Vilains modOOs
Règles du forum Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Function ChooseAFileName(nom) As String
Dim vFileDialog 'FilePicker service instance
Dim vFileAccess 'SimpleFileAccess service instance
Dim iAccept as Integer 'Response to the FilePicker
Dim sInitPath as String 'Hold the initial path
'Note: The following services MUST be called in the following order
'or Basic will not remove the FileDialog Service
vFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
vFileAccess = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
'Set the initial path here!
' sInitPath = ConvertToUrl(CurDir)
' If vFileAccess.Exists(sInitPath) Then
' vFileDialog.SetDisplayDirectory(sInitPath)
' End If
vFileDialog.appendFilter("Textes txt", "*.txt")
vFileDialog.appendFilter("Tous", "*.*")
vFileDialog.appendFilter("OXO sub", "*.sub")
vFileDialog.appendFilter("OXO ver", "*.ver")
if nom = "Ouvrir OXO.sub" then
vFileDialog.CurrentFilter = "OXO sub"
else
if nom = "Ouvrir OXO.ver" then
vFileDialog.CurrentFilter = "OXO ver"
else
vFileDialog.CurrentFilter = "Textes txt"
endif
endif
vFileDialog.Title = nom
iAccept = vFileDialog.Execute() 'Run the file chooser dialog
If iAccept = 1 Then 'What was the return value?
ChooseAFileName = vFileDialog.Files(0) 'Set file name if it was not canceled
End If
vFileDialog.Dispose() 'Dispose of the dialog
End Function
Cette fonction est parfaite mais depuis que je suis passé sous windows 10 64bit V.1803, je constate que le titre de la fenestre "Ouvrir" reste à "Ouvrir" alors qu'avec win XP je pouvais modifier ce titre. "vFileDialog.Title = nom" dans le code.
Quelqu'un sait-il ce qu'il faut changer dans le code pour que l'on puisse modifier le titre de la fenestre ouvrir ?
Merci pour les réponses
Salut à la prochaine
Michel
PS j'utilise OpenOffice 4.1.5
Dernière modification par mgc99 le 06 août 2018 18:59, modifié 2 fois.
OpenOffice 4.1.15 sous Windows 10 64bit 22H2 et Java 1.8.0.411
hello,
je ne sais pas si c'est un bug mais effectivement le problème est présent avec A.O.O 4.1.5 sous windows 10. Avec LibreOffice 5.4.4.2 sous windows 10 je n'ai pas le problème.
En rajoutant quelques instructions à ta macro cela semble faire disparaître le problème :