[vba] Comment changer la valeur input de type hidden d'un formulaire Javascript

Version imprimable

01/08/2006, 02h52
pegase33

[vba] Comment changer la valeur input de type hidden d'un formulaire Javascript

Je voudrais en vba changer la valeur input de type hidden d'un formulaire Javascript appelé "number"contenu dans une page Web.
input name="number" type="hidden" id="number" size="30" value="37;26;17;46;04"

J'ai tenté ceci avec d'autres numéros:
document.forms [0].number = "07;11;25;27;34"
mais j'ai une erreur d'éxécution '424'...Objet requis!
Qui pourrait m'éclaircir
Merci

bonjour

tu peux tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub piloterPageHTML()
    'nécéssite d'activer les références
    'Microsoft HTML Objects Library
    'et
    'Microsoft Internet Controls
 
    Dim IE As InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Helem As IHTMLElementCollection
    Dim Hx As IHTMLInputElement
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
 
    IE.navigate "http://www.leSite.fr"
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop 'attend la fin du chargement
 
    Set maPageHtml = IE.document
    Set Helem = maPageHtml.getElementsByTagName("input")
    Set Hx = Helem.Item("number")
    Hx.Value = "07;11;25;27;34"
End Sub

bonne journée
michel

01/08/2006, 12h52
pegase33
C'est tout à fait ce que je voulais.
Ces 3 éléments me manquaient!!!
Code:

1 2 3 Dim Hx As IHTMLInputElement Set Hx = helem.Item("numbers") Hx.Value = "07;11;25;27;34"
Merci bcp SilkyRoad