Discussion :

[Scoubi7]

J'ai lu cette discussion.

bonjour rmmonaco,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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=..."