Discussion :

[lucasgaetan]

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

[lucasgaetan]

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 :

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
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+