[VBA-E] Insérer du code dans un module

Hello,

Voici une procédure pour insérer du code dans un module et un classeur connu.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub InsertCode(ByVal Classeur As String, _ ByVal Modul As String, _ ByVal ProcCode As String)   Dim wb As Workbook Dim md As VBIDE.CodeModule Dim i As Long   Set wb = Workbooks(Classeur) Set md = wb.VBProject.VBComponents(Modul).CodeModule   md.AddFromString ProcCode   Set md = Nothing Set wb = Nothing End Sub

---

j'ai testé, ça semble marcher :

Code:

---

InsertCode "Feuil4","Module1", GetProcCode("Foutoir.xls","UnModule","UneProc")

---

edit : Module est un mot clé

Un autre solution signée bbil

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub ajouterUnModuleEtInsererDesLignesDeCode() Dim W As Workbook Dim vbM As VBComponent Set W = Workbooks.Add 'ajoute un nouveau classeur   'Crée un module dans le nouveau classeur Set vbM = W.VBProject.VBComponents.Add(vbext_ct_StdModule)   'Insertion des lignes de code dans le module créé vbM.CodeModule.InsertLines 1, "Sub Bonjour" vbM.CodeModule.InsertLines 2, " msgBox ""Bonjour Bienvenu dans nouveau classeur : "" & ThisWorkBook.Name" vbM.CodeModule.InsertLines 3, "End Sub"   'Appel procedure créée.. Application.Run W.Name & "!Bonjour" End Sub

---

Merci bbil ;)

Une question subsidiaire : vous pensez qu'il est possible d'insérer du code dans un code déja créé ? par exemple si on veux rajouter un détail dans une macro déja existante dans un autre classeur, à un endroit précis ?

Pour insérer du code dans une macro existante, il faut avoir réservé la place de cette insertion et utiliser ReplaceLine en indiquant le N° de ligne concerné.