Contenu

# Fonction CreateUnoService

Crée une instance d'un service Uno à l'aide de ProcessServiceManager.

### Syntaxe :

         CreateUnoService(serviceName As String) As Object

Pour une liste des services disponibles, visitez la page de référence com::sun::star Module.

### Exemple :

L'exemple ci-dessous crée la fonction FileExists qui utilise le service com.sun.star.ucb.SimpleFileAccess pour tester si un chemin donné est un fichier existant.

        Function FileExists(sPath as String) As Boolean
            Dim svcSFA As Object
            Set svcSFA = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
            Dim bExists As Boolean : bExists = svcSFA.exists(sPath)
            Dim bIsFolder As Boolean : bIsFolder = svcSFA.IsFolder(sPath)
            FileExists = bExists And Not bIsFolder
        End Function ' FileExists

Les services UNO disposent d'une documentation en ligne complète sur le site Web api.libreoffice.org. Visitez la page de référence SimpleFileAccess Service pour en savoir plus sur les méthodes fournies par le service utilisé dans l'exemple ci-dessus.

### Exemple :

Le code suivant utilise le service com.sun.star.ui.dialogs.FilePicker pour afficher une boîte de dialogue d'ouverture de fichier :

    Sub Main
        fName = FileOpenDialog ("Veuillez sélectionner un fichier")
        Print "fichier sélectionné : "+Nomf
    End Sub

    Function FileOpenDialog(title As String) As String
        res = com.sun.star.ui.dialogs.ExecutableDialogResults
        filepicker = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
        filepicker.Title = title
        If res.OK = filepicker.execute() Then
            files = filepicker.getSelectedFiles()
            FileOpenDialog=files(0)
        EndIf
    End Function ' Main

Rubriques connexes

Fonction CreateUnoServiceWithArguments

Objets, fonctions et services UNO

Utilisation des fonctions Cacl dans les macros