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