Discussion :

[pegase33]

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

[SilkyRoad]

bonjour

tu peux tester

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
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

[pegase33]

C'est tout à fait ce que je voulais.
Ces 3 éléments me manquaient!!!

Code :

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

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

Merci bcp SilkyRoad