[prog] Problème d'assignation

2006-10-02 Thread Jean-Claude N'DOUNGA 

Bonjour,

Voici une macro qui sert à afficher une boite de dialogue contenant un message.

 Sub Message
 Dim oDlgMessage As Object
 oDlgMessage = CreateUnoDialog(DialogLibraries.Standard.DLG_Message )
 oDlgMessage.execute() 
 oDlgMessage.dispose()
 End Sub 

Exécutée seule, cette macro fonctionne.
Mais assignée à l'ouverture d'un document, elle génère l'erreur suivante : 

 "Action non supportée. Appel de procédure incorrect. "
Que faire pour obtenir l'effet recherché à l'ouverture du document ?

Merci par avance. Cordialement.

Jean-Claude N'DOUNGA

Re: [prog] Problème d'assignation

2006-10-02 Thread Christine Brou 

Sub Message
   Dim oDlgMessage As Object
   DialogLibraries.LoadLibrary("Standard")   ' charger la bibliothèque
contenant le Dialog
   oDlgMessage = CreateUnoDialog(DialogLibraries.Standard.DLG_Message )
oDlgMessage.execute()
   oDlgMessage.dispose()
End Sub


Christine



Le 02/10/06, Jean-Claude N'DOUNGA <[EMAIL PROTECTED]> a écrit :



Bonjour,

Voici une macro qui sert à afficher une boite de dialogue contenant un
message.

Sub Message
 Dim oDlgMessage As Object
 oDlgMessage = CreateUnoDialog(DialogLibraries.Standard.DLG_Message )
 oDlgMessage.execute()
 oDlgMessage.dispose()
End Sub

Exécutée seule, cette macro fonctionne.
Mais assignée à l'ouverture d'un document, elle génère l'erreur suivante :

"Action non supportée. Appel de procédure incorrect. "
Que faire pour obtenir l'effet recherché à l'ouverture du document ?

Merci par avance. Cordialement.

Jean-Claude N'DOUNGA

Re: [prog] Problème d'assignation

2006-10-03 Thread Jean-Claude N'DOUNGA 

Problème résolu.

Merci.

Jean-Claude


- Original Message - 
From: "Christine Brou" <[EMAIL PROTECTED]>

To: 
Sent: Tuesday, October 03, 2006 5:54 AM
Subject: Re: [prog] Problème d'assignation


Sub Message
   Dim oDlgMessage As Object
   DialogLibraries.LoadLibrary("Standard")   ' charger la bibliothèque
contenant le Dialog
   oDlgMessage = CreateUnoDialog(DialogLibraries.Standard.DLG_Message )
oDlgMessage.execute()
   oDlgMessage.dispose()
End Sub


Christine

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]