bonjour a tous

dans un autre post Durupt a proposé ceci:


j'aimerait comprendre a partir le la ligne 13

j'ai l'impression que Durupt utilise le scriptcontrol comme moi j'utilise l'Object "htmlfile"

cela dis je ne suis pas sur de comprendre a partir de la ligne 13

voila durupt j'ai ouvert un autre post pour ne pas pollué l'autre post si tu passe par la
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
17
18
19
Sub test()
Dim a As Integer
Dim code As String
code = "Sub Test()" & vbCrLf
code = code & "dim a,i" & vbCrLf
code = code & "for i = 1 to 10" & vbCrLf
code = code & "a = a + 10" & vbCrLf
code = code & "next " & vbCrLf
code = code & "msgbox a" & vbCrLf
code = code & "End Sub" & vbCrLf
Set scr = CreateObject("ScriptControl")
scr.Language = "VbScript"
scr.AddObject "This", ThisWorkbook, True
Set m = scr.Modules.Add("Module1")
m.AddCode code
m.Run "test"
Set m= nothing
Set scr = nothing
End Sub