Peut-être cela vient-il de l'option du service ?
As-tu essayé de forcer l'exécution de la macro avec
com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN ?
>Arnaud LAURENSON - Costes Gestion a écrit :
>
>>Bonjour Philippe,
>>
>>A tout hasard, peut-être pouvez-vous utiliser la méthode suivante en
>>l'appliquant à votre problème :
>>
>>J'appelle une procédure TOTO() (depuis un bouton ou autre d'ailleurs, par
>>exemple, l'ouverture de votre document).
>>
>>Cette procédure s'écrit :
>>
>>Sub TOTO(oEvt)
>>oEvt.Source.Model.Name 'renvoie le nom du contrôle qui a appelé la procédure
>>end sub
>>
>>J'espère que cela pourra vous mettre sur la voie.
>>Arnaud
>>
>>
>>
>>
>>>Philippe a écrit :
>>>
>>>
>>>
>>>>Bonjour,
>>>>
>>>>Est-il possible avec OOo basic de faire un test
>>>>du style :
>>>>if __name__ == "__main__":
>>>>(en python)
>>>>
>>>>
>>>>En fait je voudrais tester à l'ouverture d'un document
>>>>si il est ouvert depuis un autre document ou si
>>>>il est ouvert directement. ( j'espère être assez clair ? )
>>>>Peut-on tester une variable pour ça?
>>>>
>>>>Philippe
>>>>
>>>>
>>>>
>Merci de ta réponse, mais ça ne correspond pas exactement à ce que je
>veux faire.
>En fait je voudrais pouvoir ouvrir un document à partir d'un
>autre.
>Le document ouvert doit alors déterminer son "parent"
>ou si le parent est absent.
>Bref pour l'instant j'utilise le code suivant pour lancer
>le document :
> Dim oNumDocs As Object
> Dim sAdresseDoc As String
> Dim propFich(0) As New com.sun.star.beans.PropertyValue
>
> propFich(0).Name = "MacroExecutionMode"
>
>propFich(0).Value="com.sun.star.document.MacroExecutionMode.USE_CONFIG_APPROVE_CONFIRMATION"
>
> sAdresseDoc =
>convertToUrl("/home/philippe/j3cp/preversion/Modeles/calc/NumDocs.ods")
> oNumDocs = StarDesktop.LoadComponentFromUrl( sAdresseDoc, "_blank", 0,_
>
>propFich() )
>
>Une fois le classeur lancé, OOo refuse d'écuter les macros de ce
>document ???
>Je ne trouve pas la raison ..? Une idée ?
>
>Philippe
>OOo m120
>
>
>
>
>---------------------------------------------------------------------
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
>
= = = = = = = = = ========= = = = = = = = = = =
Arnaud LAURENSON - Costes Gestion
[EMAIL PROTECTED]
25/08/2005
