[Résolu] [Calc] Appel d'un objet d'un module depuis un autre

[bonsaiko]

Bonjour à tous,

Avant toute chose je précise que je débute avec Libre Office.

J'ai un certain nombre de modules dans mon classeur, et le code de chaque module va faire référence à un objet ErrorHandling que j'ai défini dans un module du même nom.

J'ai donc écrit ce code dans un de mes modules :

Code : Tout sélectionner

    Dim ErrorHandling As Object
    Set ErrorHandling = CreateUnoService("ErrorHandling")
        
    On Error GoTo errAutoOpen
    

    
    errAutoOpen:
    ErrorHandling.HandleError False, "MonModule - MaFonction()", Err.Number, Err.Source, Err.Description, ErrorVersionDefaut

L'idée étant de pouvoir utiliser ça partout, dans tous les modules pour avoir la gestion des erreurs centralisée à un endroit.

Et pourtant lorsque j'exécute mon code j'ai une erreur sur la partie "ErrorHandling.handleError...

Le message est : Variable d'objet non définie.

Je ne comprends pas, je pense que c'est dû au fait que la variable est mal définie mais je n'arrive pas à comprendre comment faire.

Quelqu'un pourrait-il m'aider svp ?

Merci par avance !

[Dolev]

Bonsoir,

Le message est : Variable d'objet non définie.

Euh cela me paraît normal.

Code : Tout sélectionner

Set ErrorHandling = CreateUnoService("ErrorHandling")

Pouvez-vous m'expliquer où dans la documentation de l'API, vous avez vu ce service ?
Le nom complet d'un service démarre par com.sun.star :
https://wiki.openoffice.org/wiki/FR/Doc ... Interfaces

[Jurassic Pork]

Hello,
le seul service d'exception que je connaisse dans L.O, O.O c'est celui de la bibliothèque ScriptForge (présent dans LibreOffice depuis la 7.2). Exemple d'utilisation :

Code : Tout sélectionner

Sub Main()
Dim a, b, c
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")
Dim exc : exc = CreateScriptService("Exception")
    exc.Console()
    On Local Error GoTo Catch
    Try:
        a = 10 : b = 0
        c = a / b
        '...
        Exit Sub
    Catch:
         exc.DebugPrint exc.Description
        If exc.Number = 11 Then exc.Clear()
        'If division by zero, ignore the error
End Sub

SF_Exception.png

Ami calmant, J.P

[bonsaiko]

Merci pour vos réponses.
Mais du coup je ne comprends pas trop un truc.
Est-ce qu’il est possible de séparer le code dans différents modules ?
Parce que là j’ai un module censé utiliser les méthodes appelées au démarrage, un autre pour les requêtes en base de données, un autre pour les exceptions, etc
Mais quand je suis dans un module je ne comprends pas comment faire pour appeler une méthode contenue dans un autre module.
En l’occurrence j’ai bien un module de gestion des erreurs qui comprend une méthode à appeler en cas d’erreur mais je ne vois pas comment l’appeler depuis le module du départ, et je ne vois pas non plus comment faire pour appeler les méthodes qui gèrent la base de données depuis ce module alors qu’elles sont contenues dans un autre…
Quelqu’un pourrait-il m’aider ?

[Dolev]

Re,

Mais quand je suis dans un module je ne comprends pas comment faire pour appeler une méthode contenue dans un autre module.

Les macros sont regroupées dans une bibliothèque.
Une bibliothèque contient un ou plusieurs modules.
Dans un module, on peut avoir des Sub ou des Function (pas des méthodes)
Pour appeler un Sub/Function dans un autre module, on indique NomDuModule.NomSub

Si vous ne comprenez pas, joignez un document en indiquant ce que vous cherchez à faire.

[bonsaiko]

Merci de votre réponse, c'est très clair.