Insérer une macro par le code

[ouskel'n'or]

Placer ce code dans un module standard, n'importe lequel, d'un classeur, n'importe lequel, et l'exécuter.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Sub EcrireDuCodeNimporteOu()
Dim i, LeCode(1 To 13)
Dim NomClasseur As String, NomFeuil As String
Dim Wb As Workbook
Application.Workbooks.Add
NomClasseur = ActiveWorkbook.Name
Worksheets.Add
NomFeuil = ActiveSheet.Name
    LeCode(1) = "Private Sub Worksheet_Deactivate()"
    LeCode(2) = "Dim msg"
    LeCode(3) = "    msg = ""Après avoir beaucoup cherché sur le Web"" &  vbcr"
    LeCode(4) = "    msg = msg & ""Et suite à une méchante galère"" &  vbcr"
    LeCode(5) = "    msg = msg & ""J'ai trouvé un site super"" & vbcr"
    LeCode(6) = "    msg = msg & ""Où je peux enfin me défouler"" & vbcr"
    LeCode(7) = "    msg = msg & ""A glisser des trucs perverts"" & vbcr"
    LeCode(8) = "    msg = msg & ""Dans des codes élaborés"" & vbcr"
    LeCode(9) = "    msg = msg & ""Conclusion :"" & vbcr"
    LeCode(10) = "    msg = msg & "" Ne faites jamais confiance dans les codes qu'on vous passe"" & vbcr"
    LeCode(11) = "    msg = msg & "" Assurez-vous de l'avoir compris avant de dire """"Youpi !"""""
    LeCode(12) = "    msgbox msg"
    LeCode(13) = "End sub"
    Set Wb = Workbooks(NomClasseur)
    With Wb.VBProject.VBComponents(NomFeuil).CodeModule
        For i = .CountOfLines To 1 Step -1
            .DeleteLines i
            DoEvents
        Next
        For i = 1 To UBound(LeCode)
            .InsertLines i, LeCode(i)
        Next
    End With
    Workbooks(NomClasseur).Worksheets(2).Select
End Sub

......................................................

[illight]

J'ai une erreur sur cette ligne :

Code :

    Workbooks(NomClasseur).Worksheets(2).Select

Il me dit que l'indice n'appartient pas à la sélection

[ouskel'n'or]

Alors c'est que tu n'as qu'une feuille dans un nouveau classeur. Je vais préciser de fixer à 2 ou plus le nombre de feuilles par défaut d'un classeur tout neuf.
D'ailleurs, mon code ne fonctionne pas sur un Excel en Anglais

[illight]

Ou alors insère une feuille mouarf

[ouskel'n'or]

Feuille ajoutée... Comme ça, même ce "#£¤╠▓&#╬!?¿╝#" d'illight pourra jouer avec