Ecrire avec une macro dans Thisworkbook

J'ai lu cette discussion.

Citation:

---

Envoyé par sabzzz

bonjour rmmonaco,

Code:

---

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

Sub ÉcrireCode() Dim code(3) code(0) = "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) " code(1) = "MagBox ""je suis la premiere ligne""" code(2) = "ligne2 = 2" code(3) = "End Sub" For i = 0 To 3 S = S & code(i) & Chr(10) Next Set MyVB = Workbooks("fichier1.xls").VBProject.VBComponents("ThisWorkBook").CodeModule MyVB.AddFromString S End Sub

---

---

Je déterre ce vieux sujet... cette méthode marche-t-elle toujours sous Excel 2010 ? j'ai une erreur "Set MyVB=..."