Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 01/08/2006, 02h52   #1
Invité régulier
 
Inscription : mai 2005
Messages : 32
Détails du profil
Informations forums :
Inscription : mai 2005
Messages : 32
Points : 7
Points : 7
Par défaut [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
pegase33 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/08/2006, 05h38   #2
Rédacteur
 
Homme michel Tanguy
Inscription : août 2005
Messages : 3 317
Détails du profil
Informations personnelles :
Nom : Homme michel Tanguy
Localisation : France, Isère (Rhône Alpes)

Informations professionnelles :
Secteur : Industrie

Informations forums :
Inscription : août 2005
Messages : 3 317
Points : 10 706
Points : 10 706
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
SilkyRoad est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/08/2006, 12h52   #3
Invité régulier
 
Inscription : mai 2005
Messages : 32
Détails du profil
Informations forums :
Inscription : mai 2005
Messages : 32
Points : 7
Points : 7
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
pegase33 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 14h11.


 
 
 
 
Partenaires

Hébergement Web