Discussion :

[patricktoulon]

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

[PMO2017]

Bonjour,

Tu peux déjà monter la référence à msscript.ocx pour voir les Objects dans l'Explorateur d'objets.

Chez moi j'ai :
Library MSScriptControl
C:\WINDOWS\system32\msscript.ocx
Microsoft Script Control 1.0

[patricktoulon]

bonjour PMO2017

heu.......

Tu peux déjà monter la référence à msscript.ocx pour voir les Objects dans l'Explorateur d'objets.

moi je monte a cheval et a l'échelle et toi?

cela dit ce n'est pas ce qui m'intéresse déjà parce que je ne fait que du late binding (transportabilité)alors ce qui peut ce passer dans la référence ......

moi c'est les lignes 13 et plus que je ne suis pas sur de comprendre :après l'Object presque m'importe peu

cela dit quelle référence faut il activer pour l'avoir je ne le trouve pas chez moi

[Invité]

Bonjour tout le monde et bonjour Patrick,
L'objet ScriptControl permet certe d'exécuter un script vbscript ou javascript c'est selon, mais il permet un réactivité entre le script et le programme appelant.
"This" représente un nom virtuel qui sera utilisé dans le script, ThisWorkbook L'objet physique passé en paramètre.

Code vbscript :

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

1
2
This.workSeets("feuil1")
This.application.vba.dir("c:\*.*")

J'ai mis "This" mais je pouvais mettre "DuChnoque"

Jusqu'ici nous avons créé une enveloppe comme qu'en on ouvre une session Excel,on p. Voir Excel mais il est vide et il faut lui ajouter des workbooks

Set m = scr.Modules.Add("Module1") ajoute un module vierge.

Ensuite on change le code dans le module et on l'exécute.

Code :

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

1
2
m.AddCode code
m.Run "test"

Note qu'il est possible de créer de fonctions et que le run te retourne la valeur
v = m.run("myfoncton")Note également que les Sub et les fonctions ne sont pas obligatoire tu peux placer ton code directement sens Sub et end Sub et dans ce cas m.run suffit!

Dans une application visual studio 6, j"utilisais un web office qui présentait des données a saisir, certaines personnes en charge de contrôler certaines données voulaient masquer certains colonnes et d'autres d'autre colonnes.

J'ai mis au point un générateur de macros et j'ai utiliser cet algorithme pour l'exécution

[patricktoulon]

Bonsoir Durupt

OK donc je reprends

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'on créé l'object script 
Set scr = CreateObject("ScriptControl")
'on lui atrubue le language VBS
scr.Language = "VbScript"
'on lui atrubu le parmatre  thiworkbook (le classeur actuel)
scr.AddObject "This", ThisWorkbook, True
'on ajoute un module dans le workbook
Set m = scr.Modules.Add("Module1")
'on place le code dans le module du workbook en parametre 
m.AddCode code
' on execute la sub test du module 1 précédement créé
m.Run "test"

c'est cette ligne qui me rend perplexe

Code :

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

Set m = scr.Modules.Add("Module1")

j'aurais plutôt tendance a penser que l'on ajoute un module dans SRC

mais déjà tu a répondu a une question qui me tarabustait depuis 2 jours

a savoir créé l'object ,placer un code sans sub ou fonction, et l'exécuter

ca reviendrais a la me chose que créé un fichier VBS avec du code dedans et lancer le vbs externe sauf que la c'est interne
tout du moins en mémoire de la même manière que mon Object "htmlfile"

on est d'accords ??,

cet object m'intéresse pour reprendre la contrib de MarcL sur le sujet "accélérer une requête multi page web qui utilise en l'etat un fichier physique VBS

j'avais fait une tentative mais échoué ne connaissant pas bien cet object

[Invité]

Bonjour Patrick,

j'aurais plutôt tendance a penser que l'on ajoute un module dans SRC

Oui comme set wb =workbooks.add ajoute un classeur à. Workbooks mais ne nous interdit pas d'utiliser wb


En soit utiliser ScriptControl dans un projet vba, relève d'un exercice de style et présente peut d'intérêt ! C'est pas tous les jours qu'on implémente du code à la volé dans une macro.

ca reviendrais a la me chose que créé un fichier VBS avec du code dedans et lancer le vbs externe sauf que la c'est interne

On utilise ce type d'algorithmes pour des projets vbs volumineux, on exécute un ficher vbs qui ouvre un autre fichier vbs qui le run pour le charger en mémoires.

Sur une autre conversation il était question une sorte includ, c'est exactement ça.
On peut charger plusieurs modules et ce contenter de faire un run sens appeler un méthode pour activer le procès d'exécution ainsi toutes les méthodes sont accessibles d'un autre module.

J'ai fourni à vba une technique utiliser en vbs.

On utilise ce procédé pour inclure plusieurs fichiers vbs dans l'exécution d'un seule (#includ)!

Tu attends des réponses à tes questionnement et c'est bien légitime, mais tu veux tellement que ça match que tu perds de vue les fondamentaux!

Je pense que cet objet vas répondre favorablement à ta problématique! Seulement tes bourdes te feront progresser sur le sujet!

Et même passer ton "htmlfile" en paramètre et le gérer dans "scriptcontrol" (faire un mixe des deux!)