 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
11 messages in org.openoffice.fr.progRe: [prog] OOo1.1.4 - Exécution de...| From | Sent On | Attachments |
|---|---|---|
| Ludovic CHEVALIER | Jan 3, 2005 3:44 am | |
| Laurent Godard | Jan 3, 2005 3:57 am | |
| Ludovic CHEVALIER | Jan 3, 2005 8:57 am | |
| Ludovic CHEVALIER | Jan 3, 2005 9:58 am | |
| Laurent Godard | Jan 3, 2005 11:34 am | |
| Ludovic CHEVALIER | Jan 5, 2005 3:28 am | |
| Laurent Godard | Jan 5, 2005 4:26 am | |
| Agnès Simonet | Jan 5, 2005 7:58 am | |
| Ludovic CHEVALIER | Jan 6, 2005 3:26 am | |
| Ludovic CHEVALIER | Jan 6, 2005 4:10 am | |
| Bernard Marcelly | Jan 6, 2005 7:59 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] OOo1.1.4 - Exécution de macros dans un document ouvert par une macr o | Actions... |
|---|---|---|
| From: | Ludovic CHEVALIER (tens...@no-log.org) | |
| Date: | Jan 5, 2005 3:28:46 am | |
| List: | org.openoffice.fr.prog | |
Bonjour, Laurent Godard a écrit :
Y'a t-il un moyen pour ce faire (lecture seule + exécution des macros)?
ce ne devrait pas poser de probleme C'est comme ca que fonctionne DicOOo (partie self-update) Regarde dans les sources si ca peut t'inspirer Je n'ai pas trouver de partie nommée self-update dans DicOOo. ??? maintenant, quelle macro essaye tu de lancer et depuis où ?
J'ouvre un document nommé Ajout_Tache.sxw à partir d'un autre nommé
navigateur.sxw
contenant la macro suivante déclenchée par bouton:
[Sub Editer_Plan
MonDocument = ThisComponent
Dim AdresseDoc As String
Dim PropFich()
Dim MesChaines()
rem Génération de l'URL du dossier mesChaines = split(MonDocument.URL, "/") nb = UBound(mesChaines) for i=1 to nb-1 monURL = monURL+"/"+mesChaines(i) next
rem Ouverture du document AdresseDoc = "file:" & monURL & "/Formulaires/Ajout_Tache.sxw" MonDocument = StarDesktop.LoadComponentFromURL(AdresseDoc,"_blank",4, PropFich) End Sub]
Ajout_Tache est un formulaire contenant une listBox et plusieurs
sous-fomulaires.
La macro qui suit est déclenchée par l'événement contenu de la listbox modifié.
Je la met en exemple, mais ces valables pour toutes les macros de tous les
document que
j'ouvre à partir de navigateur.
[sub Actualiser rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Refresh", "", 0, Array()) end sub]
Les macros d'un document ne sont pas accessibles à un autre document si j'ai bonne mémoire. Dans ce cas, l'astuce serait de creer dynamiquement une librairie et un module contenant ta macro au niveau de soffice
J'y pense bien. Mais j'attend de trouver une solution pour enregistrer une
valeur de
façon permanente dans une macro d'une lib de soffice.
(livre cp 19, page 609)
Je n'ai pas le livre.
Comme préciser dans un autre fil de discussion, j'ai fait tous les bouquinistes
grenoblois pour le trouver d'occas'. Mais pas moyen.
Peut-être faut il créé un fil de discussion sur prog pour faire une annonce (y'a
le
droit à ça???)?
Laurent
-- Ciao!
Ludo