chris draux a écrit :
Bonjour,
J'essaie de mettre en pratique le code de la page 459 du livre avec la
2.0 m125.
Dans un document calc vierge appelé classeur.ods.
1. Outils/Macros/gérer les macros
2. Dans classeur.ods gérer Bibliothèques Nouveau PremierDialogue Editer
3. Clic-droit sur Module1 Insérer Boîte de dialogue Basic
4. Dans Dialog1 je crée un bouton. Nom : Oui, Titre : Oui, Type : OK
5. Dans Bibliothèques / PremierDialogue, je crée le code suivant :
Sub Main
Dim Dlg As Object, bibli As Object
Dim monDialogue As Object, exitOK As String
exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
bibli = DialogLibraries.GetByName ("PremierDialogue")
essayer ceci:
bibli = DialogLibraries.GetByName ("Standard")
Je viens d'essayer et ça marche
philippe
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
