Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

Mes débuts dans les macros - boîte de dialogue


Sujet :

OpenOffice & LibreOffice

  1. #1
    Nouveau Candidat au Club
    Mes débuts dans les macros - boîte de dialogue
    Bonjour tout le monde.

    Voilà le topo! Je gère une petite popote interne au sein de mon unité. (boissons, confiseries)
    Pour être carré, j'ai voulu créer un fichier gestionnaire de stock sur Calc maaaais... je n'y connais pas grand chose 😅
    J'ai bien tenté de suivre quelques tutos sur Youtube mais la plupart sont pour excel... autant vous dire que les reproduire sous Calc n'est pas chose aisée surtout quand on attaque les macros!

    Après plusieurs recherches effectuées via le moteur du site, je n'ai toujours pas trouvé mon bonheur.
    Si quelqu'un pouvait m'aider à me lancer s'il vous plaît! ça serait top !

    Voilà où j'en suis :

    1) J'ai créé une boite de dialogue pour ajouter un article en remplissant simplement les "zones de texte"
    2) J'ai entré la macro suivante pour la lancer et...... voilà c'est tout... ça ne marche pas! 😅

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Dim oDialog1 As Object
     
    Sub StartDialog1()
    	BasicLibraries.LoadLibrary("Tools")
    	oDialog1 = LoadDialog("Standard", "Dialog1")
    	oDialog1.Execute()
     
    End Sub



    Si j'ai bien compris le problème vient de la ligne

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    	BasicLibraries.LoadLibrary("Tools")


    Alors il me semble que c'est parce que ma boite de dialogue et ma macro ont été créées directement dans mon fichier et non pas dans le répertoire de base. Sauf que je ne trouve pas le code adéquat pour que ma macro localise Dialog1 qui se trouve dans le répertoire: Monfichier / Standard / Module1 / Dialog1
    (la fonction ajouter une image ne fonctionne pas auquel cas j'aurais mis une capture d'écran)



    En vous remerciant par avance!

    Yohan

    P.s : j'utilise libreoffice 7.0.0.3

  2. #2
    Membre habitué
    Mes débuts dans les macros - boîte de dialogue
    Bonjour.

    Tout simplement parce que tu fais référence à la librairie Tools alors qu'il s'agit de la librairie Standard.
    Mettre :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    BasicLibraries.LoadLibrary("Standard")


    Cordialement
    Libre Office Version: 6.4.6.2 (x64)
    Windows 10

  3. #3
    Nouveau Candidat au Club
    Merci pour ta réponse rapide!
    ça ne fonctionne toujours pas malheureusement! j'ai le message d'erreur suivant:

    Erreur d'exécution BASIC.
    Une exception s'est produite :
    Type: com.sun.star.container.NoSuchElementException
    Message: .

  4. #4
    Membre habitué
    Mes débuts dans les macros - boîte de dialogue
    Re

    En effet je n'avais pas remarqué que ton code était aussi faux.

    En fait il faut écrire :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub StartDialog1()
     DialogLibraries.LoadLibrary( "Standard" )
     oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1)
     oDialog1.Execute()
    End Sub


    Cordialement
    Libre Office Version: 6.4.6.2 (x64)
    Windows 10

  5. #5
    Nouveau Candidat au Club
    Super! Merci beaucoup!
    Serait-ce abuser de ta gentillesse si je te demandais de m'aider pour la suite?
    Ou peut-être m'orienter pour pouvoir y arriver seul car je ne trouve rien de très clair sur internet...
    Entre le boulot et les enfants, j'ai mis une semaine à créer un tout petit bout de fichier calc à partir d'un tuto Youtube prévu pour excel 😅 (et il me reste 7 vidéos sur 9 à visionner &#128514


    En te remerciant encore une fois

    cordialement

  6. #6
    Membre habitué
    Mes débuts dans les macros - boîte de dialogue
    Pas de souci pour l'aide. J'ai un peu plus de temps maintenant que je suis retraité (militaire)

    Mais avant tout, et comme je suppose que ton fichier n'a rien de secret (petite popote interne). Il est souhaitable de joindre ton fichier ou une copie que tu auras préalablement anonymiser si besoin.
    Comme cela on peut modifier, corriger tes erreurs..... sans avoir à créer un fichier par nous même pour vérifier le code.

    Et aussi tu peux regarder :

    https://openoffice-libreoffice.developpez.com/faq/

    On y trouve des choses intéressantes.



    Cordialement
    Libre Office Version: 6.4.6.2 (x64)
    Windows 10

###raw>template_hook.ano_emploi###