Salut,
Je pense que j'ai aussi chercher comment faire et j'ai trouver 2 solutions proposées sur le site :
La première utilise une DLL de VB mais ne fonctionne pas en mode RUN (... pas de chance).
La seconde utilise une référence Microsoft Script controle 1.0. Avec ça tu peux faire pas mal de chose dans la limite ou ces "choses" appartiennent à des objets ; exemple de code : Tout ce code doit être dans une Form1
Private Script As ScriptControl
Public Sub strScript()
Dim srtScriptToExecute as String
srtScriptToExecute = "pr1"
ExecuteLineScript srtScriptToExecute
end sub
Public Function ExecuteLineScript(strScript As String) As Boolean
On Error GoTo Erreur
If Script Is Nothing Then
' Initialisation du ScriptControleur
Set Script = New ScriptControl
Script.Language = "VBScript"
Script.AddObject "MaForm", Form1
' Exécution du script
Script.ExecuteStatement strScript
ExecuteLineScript = True
Set Script = Nothing
Else
MsgBox "Un Script est en cours", vbOKOnly, "Erreur script"
End If
Exit Function
Erreur:
Set Script = Nothing
ExecuteLineScript = False
MsgBox Err.Description, vbOKOnly, "Erreur script"
End Function
sub pr1()
? "hello"
end sub
Voilà commant je fais moi auourd'hui.
Fiko ;-)
Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.