OVH Cloud OVH Cloud

Modèle et macro

7 réponses
Avatar
Toon_28
Bonjour,

J'ai créé un modèle de document contenant des macros.

Par l'intermédiaire d'un module AS400, j'appelle ce modèle qui est donc
dupliqué en ".doc" avec une série d'informations.

Mon problème, c'est que j'ai besoin des macros présentes dans mon modèle
(localisé sur un serveur) lorsque je ne suis justement plus connecté

Comment faire pour qu'au moment de la duplication de ce modèle, il me
duplique également mes macros?

PS: Je ne peux pas mettre ce modèle comme modèle global ou comme compléments.

Merci pour vos réponses.

7 réponses

Avatar
Geo
Bonjour Toon_28


Bonjour,

J'ai créé un modèle de document contenant des macros.

Par l'intermédiaire d'un module AS400, j'appelle ce modèle qui est
donc dupliqué en ".doc" avec une série d'informations.

Mon problème, c'est que j'ai besoin des macros présentes dans mon
modèle (localisé sur un serveur) lorsque je ne suis justement plus
connecté

Comment faire pour qu'au moment de la duplication de ce modèle, il me
duplique également mes macros?

PS: Je ne peux pas mettre ce modèle comme modèle global ou comme
compléments.


Je ne sais pas si cela répondrait à ton souci, mais on peut exporter des
macros sous forme de fichier et les importer dans un document ou un modèle.
Et tout ça même en vba, ça marche très bien avec des macros classiques,
moins bien avec des événements.

--

A+

Avatar
Toon_28
Bonjour Geo

Je vais essayer de passer mes macros dans un fichier texte puis des les
importer dans mon document généré.

J'espère que ca fonctionnera;

Merci


Bonjour Toon_28


Bonjour,

J'ai créé un modèle de document contenant des macros.

Par l'intermédiaire d'un module AS400, j'appelle ce modèle qui est
donc dupliqué en ".doc" avec une série d'informations.

Mon problème, c'est que j'ai besoin des macros présentes dans mon
modèle (localisé sur un serveur) lorsque je ne suis justement plus
connecté

Comment faire pour qu'au moment de la duplication de ce modèle, il me
duplique également mes macros?

PS: Je ne peux pas mettre ce modèle comme modèle global ou comme
compléments.


Je ne sais pas si cela répondrait à ton souci, mais on peut exporter des
macros sous forme de fichier et les importer dans un document ou un modèle.
Et tout ça même en vba, ça marche très bien avec des macros classiques,
moins bien avec des événements.

--

A+






Avatar
Geo
Bonjour Toon_28


Bonjour Geo

Je vais essayer de passer mes macros dans un fichier texte puis des
les importer dans mon document généré.

J'espère que ca fonctionnera;



Pas forcément en fichier texte à proprement parler, tu utilises la fonction
exporter un module, cela générera un fichier en .bas qu'il suffit
d'importer.
--

A+

Avatar
Toon_28
Bonjour Geo,

est ce que je peux importer un .bas faciliment en automatique ? sans
intervention manulle? dans un .doc créé grace à un .dot (qui je rappelle
n'exporte pas les macros)

Merci.


"Geo" wrote:



Pas forcément en fichier texte à proprement parler, tu utilises la fonction
exporter un module, cela générera un fichier en .bas qu'il suffit
d'importer.
--

A+




Avatar
Geo
Bonjour Toon_28


Bonjour Geo,

est ce que je peux importer un .bas faciliment en automatique ? sans
intervention manulle? dans un .doc créé grace à un .dot (qui je
rappelle n'exporte pas les macros)


On peut importer des macros en vba, (de mémoire)
mais il faut bien que quelque chose amorce la pompe.

Tu peux décrire précisément la situation ?
J'ai du mal à bien saisir toutes les contraintes.
Sur ton poste tu as forcément un modèle Normal.dot.
Tu peux y mettre une macro qui importe ton .bas ?

--

A+

Avatar
Oliv'
Geo que je salut a écrit dans

Bonjour Toon_28


Bonjour Geo,

est ce que je peux importer un .bas faciliment en automatique ? sans
intervention manulle? dans un .doc créé grace à un .dot (qui je
rappelle n'exporte pas les macros)


On peut importer des macros en vba, (de mémoire)
mais il faut bien que quelque chose amorce la pompe.

Tu peux décrire précisément la situation ?
J'ai du mal à bien saisir toutes les contraintes.
Sur ton poste tu as forcément un modèle Normal.dot.
Tu peux y mettre une macro qui importe ton .bas ?


Si tu génères ton fichier .dot à l'aide d'une macro tu peux y copier tes
macros avec la commande suivante.
.AddFromString si c'est à partir d'une variable
ou .AddFromFile si c'est à partir d'un fichier

recherche l'aide dessus!


exemple sous xl2003 sp1


Sub EcrireThisWorkBook()
Dim VBACompte As String, VBAThis As String

VBAThis = " Private Sub Workbook_Open()"
VBAThis = VBAThis & vbCr & "Application.ScreenUpdating = False"
VBAThis = VBAThis & vbCr & "For Each sh In Sheets"
VBAThis = VBAThis & vbCr & "sh.Visible = True"
VBAThis = VBAThis & vbCr & "Next sh"
VBAThis = VBAThis & vbCr & "End Sub"

With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.AddFromString VBAThis
'.AddFromFile "monPCMONPARTAGEcompte_Thisworkbook.cls"
End With

Exit Sub
End Sub

Sinon voir le lien http://dj.joss.free.fr/ecrisub.htm


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Avatar
Oliv'
Mince ma réponse concerne Excel !!! la solution Word n'est peut être pas
loin
Oliv'
oups désolé


Oliv' <(supprimerceci) que je salut a écrit
dans
Geo que je salut a écrit dans

Bonjour Toon_28


Bonjour Geo,

est ce que je peux importer un .bas faciliment en automatique ? sans
intervention manulle? dans un .doc créé grace à un .dot (qui je
rappelle n'exporte pas les macros)


On peut importer des macros en vba, (de mémoire)
mais il faut bien que quelque chose amorce la pompe.

Tu peux décrire précisément la situation ?
J'ai du mal à bien saisir toutes les contraintes.
Sur ton poste tu as forcément un modèle Normal.dot.
Tu peux y mettre une macro qui importe ton .bas ?


Si tu génères ton fichier .dot à l'aide d'une macro tu peux y copier
tes macros avec la commande suivante.
.AddFromString si c'est à partir d'une variable
ou .AddFromFile si c'est à partir d'un fichier

recherche l'aide dessus!


exemple sous xl2003 sp1


Sub EcrireThisWorkBook()
Dim VBACompte As String, VBAThis As String

VBAThis = " Private Sub Workbook_Open()"
VBAThis = VBAThis & vbCr & "Application.ScreenUpdating = False"
VBAThis = VBAThis & vbCr & "For Each sh In Sheets"
VBAThis = VBAThis & vbCr & "sh.Visible = True"
VBAThis = VBAThis & vbCr & "Next sh"
VBAThis = VBAThis & vbCr & "End Sub"

With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.AddFromString VBAThis
'.AddFromFile "monPCMONPARTAGEcompte_Thisworkbook.cls"
End With

Exit Sub
End Sub

Sinon voir le lien http://dj.joss.free.fr/ecrisub.htm