Ajouter une macro à l'aide d'une autre macro

Question

Bonjour, 
J'ai cr&#233;er une nouvelle barre d'outils dans word et j'aimerais pouvoir la personnaliser sans passer par VBEditor. 
J'ai un bouton "personnaliser" qui ouvre un USERFORM. Je sais ajouter des menus, ajouter des entr&#233;es (boutons) dans un menu et leurs attribuer un nom de macro. En revanche, je ne sais pas comment faire pour attribuer la macro car quand j'ai le nom il faut que je fasse la macro ensuite dans VBEditor... 
Comment faire pour qu'avec le bouton de mon USERFORM, je copie un texte simple de macro dans le mod&#232;le de document ? 

Merci beaucoup.

jpleroisse · Answer

Je n'utilise pratiquement jamais Word, mais je suppose que cela doit-&#234;tre comme dans Excel.

Tu cr&#233;es ta macro dans un module
 Exp:  Sub Nom()
      ici ton code
      End Sub
Et dans la proc&#233;dure de ton bouton tu mets
Private sub CommanButton1_Click()
   Call Nom
   End sub

jpleroisse

ErikBourges · Answer

Oui, je suis tout &#224; fait d'accord avec &#231;a mais ce que je souhaite c'est que le code de la nouvelle macro s'&#233;crive seul dans VBEditor.
En fait, la personnalisation de la nouvelle barre d'outils doit pouvoir se faire sans devoir entrer de code dans VBEditor.
Derri&#232;re le bouton de l'USERFORM, je cr&#233;e un code du genre : copie ceci :
sub & nommacro & ()
textemacro
end sub()

J'arrive a coller le texte de la macro mais maintenant j'aimerais le coller &#224; l'aide de ma macro (bouton) dans le VBEditor !

Merci.

jpleroisse · Answer

D&#233;sol&#233;, mais j'ai essay&#233; un tas de codes et je n'y arrive pas sans ouvrir l'&#233;diteur et coller la macro.Peut-&#234;tre quelqu'un sur le forum a t-il la solution??

jpleroisse

ErikBourges · Answer

J'ai trouv&#233; le moyen d'ouvrir l'&#233;diteur avec une macro:

'montre le code a coller dans le module Visual Editor
TextBox2.SelStart = 0
TextBox2.SelLength = TextBox2.TextLength
TextBox2.Copy


'ajoute l'entr&#233;e dans la barre d'outils FDP.
Set viewmenu = CommandBars("Fiche prep").Controls(menu)
Set newitem = viewmenu.Controls.Add
With newitem
    .BeginGroup = True
    .Caption = texte
    .Style = msoButtonCaption
    .FaceId = 0
    .OnAction = nommacro
End With
Unload UserForm1


'ouvre l'&#233;diteur VB
ShowVisualBasicEditor = True

Mais j'essaie une mcaro du type : TextBox2.paste
pour coller le texte de la macro dans l'&#233;diteur mais il refuse de le faire.
En effet, pour l'instant la seule manip qui fonctionne quand la macro a ouvert l'&#233;diteur c'est de cliquer sur "coller" et de fermer l'&#233;diteur !

Si quelqu'un pouvait m'aider &#224; coller le texte puis a refermer l'&#233;diteur ce serait tr&#232;s chouette :-)

Merci.

valtrase · Answer

Le sujet &#224; &#233;t&#233; abord&#233; sur vba pour excel mais tu dois pouvoir le passer sous word cherches dans les topics du forum

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Ajouter une macro à l'aide d'une autre macro

5 réponses

Discussions similaires