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 : Sélectionner tout - Visualiser dans une fenêtre à part
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