Bonjour,

Je voudrais écrire du code dans un classeur B que je créé à partir d'une macro dans un classeur A dont voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim Classeur_Historique_User As Workbook
Set Classeur_Historique_User = Workbooks.Add   
Set VBComp = Classeur_Historique_User.VBProject.VBComponents("ThisWorkbook").CodeModule
code_string = "Sub Fermeture_Classeur_Historique()" & Chr(10) & "ActiveWorkbook.Close False" & Chr(10) & "End Sub"
VBComp.AddFromString code_string
Le code ne plante pas mais rien ne s'écrit.
J'ai bien activé la référence VB for application extensibility 5.3.

Des idées?

D'avance merci.