Créer une procédure par macro

Bonjour,

Je cherche un moyen, de créer une procédure (Workbook_BeforeSave) dans plusieurs fichier à partir d'une Marco situé dans un autre fichier.
un truque du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub CreerProcedures() Dim Fichier_A_Modifier As String Dim Code_A_Ajouter As String Fichier_A_Modifier = "C:\Temp\Test.xlsm" Code_A_Ajouter = "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" & vbCr & _ "MsgBox " & Chr(34) & "toto" & Chr(34) & vbCr & _ "End Sub" Workbooks.Open Fichier_A_Modifier '********************************************* 'Ici création de la procédure; ce que je cherche EcrirLeCode Code_A_Ajouter '********************************************* Workbooks.Save Workbooks.Close End Sub

---

Existe t il un tuto ou autre la dessus ?

Merci

j'ai trouvé

1-Cocher "Accèes approuvé au modèle d'objet du projet VBA".
-->Menu Office -> Options Excel -> Centre de gestion de la confidentialité -> Paramètres du Centre de gestion de la confidentialité -> Paramètres des macros -> Accèes approuvé au modèle d'objet du projet VBA

2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub CreerProcedures() Dim Fichier_A_Modifier As String Dim Chemin_Fichier_A_Modifier As String Dim Code_A_Ajouter As String   Fichier_A_Modifier = "Test.xlsm" Chemin_Fichier_A_Modifier = "C:\Temp\" & Fichier_A_Modifier   Code_A_Ajouter = "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" & vbCr & _ "MsgBox " & Chr(34) & "toto" & Chr(34) & vbCr & _ "End Sub"   Workbooks.Open Chemin_Fichier_A_Modifier '********************************************* ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.InsertLines 1, Code_A_Ajouter '********************************************* Workbooks(Fichier_A_Modifier).Save Workbooks(Fichier_A_Modifier).Close End Sub

---

à adapter ...

a+