Discussion :

[Gluups]

Bonjour tout le monde,

J'ai un peu peur de poser une question bateau, pour autant je suis un peu désemparé quant à dire quelle est la bonne clef de recherche.

J'ai écrit un modèle de courrier, avec le nom et adresse de l'expéditeur et l'emplacement de l'adresse du destinataire, et une macro met à jour l'emplacement de la date lors de la création d'une nouvelle lettre.

Donc, pour chaque document, cette macro ne sert qu'une fois. Enfin en général.

Si on rouvre la lettre, voilà-t-y pas qu'Open Office affiche un avertissement comme quoi ce document contient des macros, et demande si on veut l'ouvrir quand même.

Certes on n'a qu'à répondre oui, mais enfin je me dis qu'il serait peut-être plus propre que la macro, qui ne sert qu'une fois, ne soit pas enregistrée dans le document.

Une macro à exécuter lors de la création d'un document, normalement, doit être dans son modèle, non ?
Mais est-ce qu'on ne peut pas s'abstenir de l'enregistrer dans le document ?

Ajouter une instruction pour retirer le module en fin de traitement ?

[Pascaltech]

Bonsoir,

Une macro à exécuter lors de la création d'un document, normalement, doit être dans son modèle, non ?

Plus exactement, une macro doit être enregistrée dans un document, writer, calc. Je pense que c'est pareil avec base et draw, je ne l'ai pas testé.

Tu peux écrire une macro dans un document parent, ton modèle ici, et enfanter un document fils qui recevra les éléments que tu renseignes pour ton courrier.

Tu as besoin de la méthode com::sun::star::frame::loadComponentFromURL(interface XComponentLoader : https://www.openoffice.org/api/docs/...entLoader.html)

En plus de l'objet Document thisComponent représentant le fichier parent :

Pour la création d'un fichier fils :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim ObjetDocument as object
Dim Desktop as object                                         }
Desktop = createUnoService("com.sun.star.frame.Desktop")      } déclarations inutiles si tu fais appel à starDesktop
Dim NoArgs() ' à renseigner même s'il n'y a pas d'arguments
 
ObjetDocument = Desktop.loadComponentFromURL("private:factory/scalc","_blank",0,NoArgs()) 	' pour un fichier calc     ' ou ObjetDocument = starDesktop.loadComponentFromURL("private:factory/scalc","_blank",0,NoArgs())
ObjetDocument = Desktop.loadComponentFromURL("private:factory/swriter","_blank",0,NoArgs())	' pour un fichier writer    'ou ObjetDocument = starDesktop.loadComponentFromURL("private:factory/swriter","_blank",0,NoArgs())

Pour l'ouverture d'un fichier fils existant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim ObjetDocument as object
Dim chemin as string
Dim Array()
chemin = "file:///c:\répertoire\fichier" ' fichier writer ou calc, si c'est un fichier texte, tu dois préciser ses propriétés dans les arguments(tu as un exemple dans le sujet :  Macro pour tracer une courbe a partir d'un fichier importé de James93)
ObjetDocument = StarDesktop.LoadComponentFromURL(ConvertToURL(chemin),"_blank",0,Array()) ' pour OS sous DOS (ConverTo URL)
chemin = "file:///home/répertoire/fichier"
ObjetDocument = StarDesktop.LoadComponentFromURL(chemin,"_blank",0,Array()) ' pour OS linux

[Gluups]

Ah, donc l'idée, c'est qu'on ne va pas créer un nouveau document selon un modèle, mais avoir une interface dans le modèle standard qui va effectuer un copier/coller d'un document donné ?

[Pascaltech]

C'est plutôt un document qui contient un modèle standard qui est copié par la macro dans un nouveau document créé pour l'occasion selon le besoin. Ainsi ce nouveau document ne contient pas de macro.