Bonjour à tous, J'ai crée une boite de dialogue. Au départ je cherchais juste un morceau de code
pour appeler cette boîte de dialogue comme je séché un peu, j'ai repris
l'exemple du livre en lui assignant un bouton.

Mais j'ai un petit probléme:

Quand j'ouvre mon fichier et que je cliques sur mon bouton, cela me crée une
erreur "Action non supportée - Appel de procédure incorrecte" au niveau de la
ligne "Dlg = CreateUnoDialog(monDialogue) ' créer le dialogue ". Par contre quand je quitte le basic suite à cette erreur, la macro marche sans
probléme.

J'ai cherché à modifier le code mais là je suis un peu perdu, si quelqu'un à une
idée, je suis preneur (même d'un code hyper simple pour appeler une boite de
dialogue)

Merci d'avance

Je suis sous OOO1.1

REM ***** BASIC *****

rem CD-Rom : Code15-01.sxw bibli : PremierDialogue Option Explicit

Sub Main1() Dim Dlg As Object, bibli As Object Dim monDialogue As Object, exitOK As Integer

exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK ' la bibliothèque est déjà en mémoire car cette macro est dans la même bibli ' récupérer l'objet bibliothèque bibli = DialogLibraries.GetByName("PremierDialogue") ' récupérer la boîte de dialogue dans la bibliothèque monDialogue = bibli.GetByName("Dialog1") Dlg = CreateUnoDialog(monDialogue) ' créer le dialogue if Dlg.Execute = exitOK then MsgBox("Macro Main1 de la bibli PremierDialogue") end if Dlg.Dispose End Sub