Arnaud POUSSIER a écrit :
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
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
je pense qu'il faut charger la bibliothèque en mémoire avant l'appel du
dialogue.
voir la question que j'avais posée il y a peu de temps sur la liste à
laquelle Bernard Marcelly avait eu la gentillesse de répondre :
/***********
Le 2005-04-09 22:16, Gerard Kohler a écrit :
ma macro commence par :
libDialog = DialogLibraries.GetByName("test")
monDialogue = libDialog.GetByName("Dialog1")
Dlg = CreateUnoDialog(monDialogue)
j'ai essayé de mettre :
LibDoc = ThisComponent.DialogLibraries
LibDoc.LoadLibrary("test")
au début de ma macro mais cela ne marche pas j'ai une erreur :
Runtime error BASIC
propriété ou méthode introuvable
ou est l'erreur ?
On écrit comme ceci :
DialogLibraries.LoadLibrary("test")
Bonne soirée
Bernard
/***********
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
