Ajouter du code à un onglet via une macro ?

Serge Hipontoise wrote:

Rebonjour, et rebonne année :o)

Je voudrais, via une macro, inserer du code dans un onglet (comme quand on
fait "visualiser le code").
Est-ce possible ?
Un grand merci d'avance

Serge

Bonsoir,

Meilleurs voeux également.

Pour ajouter du code, tu peux t'inspirer de ce qu'écrivait Frédéric
Sigonneau :

Tu pourrais essayer ce type de code (aucune référence supplémentaire
n'est nécessaire) :

Sub CopieCodeModule()
Dim S As String, Wbk As Workbook

With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With

Set Wbk = Workbooks("Destination.xls")
Wbk.VBProject.VBComponents.Add 1
With Wbk.VBProject.VBComponents("Module1").CodeModule
.AddFromString S
End With

End Sub 'FS

@+
FxM