Créer une macro dans un nouveau classeur

[el_mokh]

Bonjour,
Je viens solliciter votre expertise pour m'aider à trouver une solution pour mon problème.
En faite, comme l'intitulé l'indique je cherche à créer des macros dans un nouveau classeur créer lui aussi par une macro.
En gros, j'ai une macro"M1" dans un classeur "A" qui créer un nouveau classeur "B", je veux que le classeur B contienne une macro "M2" qui se lancera à chaque ouverture de "B" (Ca sera donc dans ThisWorkbook) et une macro "M3" qui sera dans un module et qui se lancera à partir de boutons.

Voila mes amis mes problèmes sur lesquels je coince depuis une semaine.

merci pour votre aide

 

[job75]

Re : Créer une macro dans un nouveau classeur

Bonjour el_mokh,

Voyez ce code pour créer 2 macros dans un nouveau classeur :

Sub CrerClasseur()
Dim wb As Workbook, m As Object

Set wb = Workbooks.Add 'nouveau document

Set m = wb.VBProject.VBComponents("ThisWorkbook")
m.CodeModule.InsertLines 1, "Private Sub Workbook_Open()"
m.CodeModule.InsertLines 2, "Cells(1)= ""bonjour"""
m.CodeModule.InsertLines 3, "End Sub"

Set m = wb.VBProject.VBComponents.Add(1)
m.Name = "MonModule"
m.CodeModule.InsertLines 1, "Sub MaMacro()"
m.CodeModule.InsertLines 2, "Cells(1)= ""au revoir"""
m.CodeModule.InsertLines 3, "End Sub"

End Sub

Bonne continuation.

Edit : j'oubliais, sur Excel 2010 il faut avoir coché l'option Accès approuvé au modèle d'objet du projet VBA (onglet Fichier-Options-Centre de gestion de la confidentialité-Paramètres...-Paramètres des macros).

A+