1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Sub EcrireDuCodeDansUnModule()
Dim i, nomFich, x As Long
nomFich = ThisWorkbook.Name 'Nom du classeur concerné à adapter
For i = 1 To Application.VBE.VBProjects.Count
If InStr(Application.VBE.VBProjects(i).Filename, nomFich) <> 0 Then
For Each LeModule In Application.VBE.VBProjects(i).VBComponents
If LeModule.Name = "Module1" Then
x = LeModule.CodeModule.CountOfLines
LeModule.CodeModule.InsertLines x + 1, "Private Sub LaMacroInseree()"
LeModule.CodeModule.InsertLines x + 2, " Msgbox ""Bienvenue sur le forum !"""
LeModule.CodeModule.InsertLines x + 3, "End sub"
End If
Next
End If
Next i
End Sub |
Partager