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:
Le code ne plante pas mais rien ne s'écrit.
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
J'ai bien activé la référence VB for application extensibility 5.3.
Des idées?
D'avance merci.
Partager