bonjour Patrick
j'espère que cet exemple pourra t'aider
Sub InsererModuleEtMacro()
'Activer la reference Microsoft Visual Basic For Applications Extensibility 5.3
Dim Vbc As VBComponent
Dim X As Byte
Dim NomModule As String
Set Vbc = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_S tdModule)'nouveau module dans classeur contenant cette macro
'Vbc.Name = "LeNom" ' option pour personnaliser le nom du module
NomModule = Vbc.Name 'recuperer le nom du module par defaut
With ThisWorkbook.VBProject.VBComponents(NomModule).Cod eModule 'insertion d'une macro dans le module créé
X = .CountOfLines
.InsertLines X + 1, "Sub Test()"
.InsertLines X + 2, "MsgBox ""Le forum Xld"",VBinformation "
.InsertLines X + 3, "End Sub"
End With
End Sub
bon dimanche
MichelXld