[WD17] ActiveX - code VB vers WinDev

Bonjour à tous et bonne année
voila j'ai un petit souci de connexion
je voudrais faire un programme en windev avec mes source de vb
donc en vb mon programme fonctionne très bien mais pas en windev avec activex
voici une partie du programme qui me pose problème
le code en vb

Code:

1
2
3
4
5
6
           WebBrowser1.Document.All("numeroExterne").SetAttribute("value", Convert.ToString(numero.Text))
            WebBrowser1.Document.All("codeConf").SetAttribute("value", Convert.ToString(code.Text))
            For Each elem As HtmlElement In WebBrowser1.Document.GetElementsByTagName("button")
                ' Check the attributtes you want
                elem.InvokeMember("click")
            Next

mais je n’arrive pas a le faire en windev avec activex
voici la parti du code

Code:

1
2
3
4
5
6
7
8
9
10
11
CliExplore:bRechercheChampParNom("numeroExterne")
CliExplore:SetValeur("xxxxxxxxxxx")
CliExplore:bRechercheChampParNom("codeConf")
CliExplore:SetValeur("xxxxxxxxx")
 
mhtmDoc3 est un objet OLE dynamique
mdocDocument est un objet OLE dynamique
mhtmDoc3 = ActiveX1>>Document
ActiveX1>>silent=True
mdocDocument = mhtmDoc3>>body>>all>>tags("button")
mdocDocument>>item(SAI_Item)>>click // champ ou est récupéré l'item

il y a pas de click alors que en vb cela fonctionne