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")
monDialogue = bibli.GetByName("Dialog1")
Dlg=CreateUnoDialog(monDialogue)
if Dlg.Execute = exitOK then
Msgbox("Macro Main1 de la bibli Dialogue")
end if
Dlg.Dispoe
End Sub
Je reviens dans Dialog1, je clique sur Mode Test, je clique sur le bouton et...
il ne se passe rien, pas de MsgBox.
Dans Événement, j'ai essayé sur "bouton de souris enfoncé", d'ajouter :
vnd.sun.star.script:PremierDialogue.Module1.Main?language=Basic&location=application
Et là, la boîte de dialogue se referme. Pas de MsgBox.
Aurais je oublier quelque chose ?
Merci d'avance
Christian
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
