Discussion :

[cafeine]

Hello,

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

Code :

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

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 :

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

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

edit : Module est un mot clé

[ouskel'n'or]

Un autre solution signée bbil

Code :

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

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

[illight]

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 ?

[ouskel'n'or]

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é.