Discussion :

[Tinien]

Bonjour,
Je voudrais savoir comment faire pour créer une macro qui installe dans le nomal ( sur vb ) une macro , je suis a la base parti d'un document avec ma macro dans la feuille.

[Heureux-oli]

Salut,

Peut-être ici http://word.developpez.com/faq/?page...emplacer_macro
dans la faq.

[Tinien]

Je n'y est pas trouver de réponse.
Je me suis peut etre mal exprimée mais je voudrais qu'en ouvrant mon document la macro presente dedans s'installe dans les macro personnelles.

[Heureux-oli]

Salut,

Les informations s'y trouvent !
Il faut juste les modifier un peu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub testOlivier()
Dim objTempNorm As Document
Dim x As Integer
 
Set objTempNorm = Application.Documents.Open(Application.Options.DefaultFilePath(wdUserTemplatesPath) & "\normal.dotm")
 
With objTempNorm.VBProject.VBComponents("ThisDocument").CodeModule
    x = .CountOfLines
    .InsertLines x + 1, "Sub MaNouvelleMacro()"
    .InsertLines x + 2, "MsgBox ""Coucou"",VBinformation "
    .InsertLines x + 3, "End Sub"
End With
 
objTempNorm.Close savechange:=True
Set objTempNorm = Nothing
 
 
 
 
End Sub

[Sepia]

Salut,

Attention à la sécurité, car je crois que M$ a mis au point des contrôles pour empêcher la modification du niveau de sécurité par une macro (pour limiter à défaut d'empêcher) les virus par macros (sauf pour les macros signées).

Je comprends ton besoin mais ça me laisse toujours songeur la macro qui installe la macro... qui installe la macro... J'aime bien l'idée du boa qui avale sa queue

@+