Discussion :

[gph]

Salut,

J'utilise le controle Script Control Object (msscript.ocx) afin de rendre scriptable mes applications.

Le partage d'objet se fait sans problème, par contre je n'arrive pas à exécuter une fonction publique du programme VB6 à partir du VBScript.

La fonction est vue (car si elle n'existe pas ou n'est pas publique le message d'erreur le dit) et une erreur Type incompatible se produit systématiquement.

Le script se termine et la fonction VB6 n'ets pas appelée.
Est ce quelqu'un connaitrais une solution ou une piste pour trouver la solution.
Car cela fait pas mal de temps que je bricole et que je cherche sur le net sans trouver de réponse.

Merci par avance.
Philippe.

[ced600]

ce serait plus simple de t'aider si tu nous disais de quelle fonction il s'agit !!!

[gph]

Dans VB6 :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Public sub TestVBS()
   debug.print "Execution TestVBS"
end sub
 
Public Function RunVBS(filename As String) As String
' Charge le script et l'execute
    Dim fs As Object, f As Object, msg As String
 
    On Error GoTo erreur
 
    ' Charge le fichier
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(filename)
    msg = f.ReadAll
    f.Close
 
    ' Charge le code
    VbScript.Reset
    VbScript.AddCode msg
 
    VbScript.AddObject "Form", Me
 
    ' Execute
    msg = VbScript.Eval("Main")
    RunVBS = "  Exécution terminée : " + msg
    Debug.Print RunVBS
    Exit Function
 
erreur:
    RunVBS = "  Erreur script : " + Error$
    Debug.Print Error$
 
End Function

Le VBScript :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Function Main()
' Fonction appellé par VB6
'	Doit retourner : un message qui est mémorisé dans le LOG 
 
	Form.LstEvents.additem "Avant test"
 
	TestVBS
 
	Form.LstEvents.additem "Apres test"
	Main = " Ca marche !"
 
End Function

[ced600]

As tu fait un debug.print de msg ?
pour être sur que tu as bien le code complet dans msg.

[gph]

Oui.

Le script fonctionne quand je fais n'importe quoi y compris des acces Bdd en ADO, le seul truc qui ne marche pas c'est l'appel d'une fonction/procedure publique de VB6.

[ced600]

cela me parait normal, puisqu'après avoir charger le code vbs et lance un interpreteur pour le lire, tu reste dans le vbscript, et la fonction TestVBS est cherche dans le VBScript. Faudrait que tu lui précise que ce n'est pas dans le VBS mais dans le VB6 qu'il faut chercher. En gros que tu es une sorte d'include dans ton VBS pour mettre une reference vers ton fichier VB6.