Discussion :

[epaminondas]

Bonjour,
Je « bidouille » un programme, pour l’adapter à mon problème : remplir automatiquement un formulaire sur un intranet auquel j’accède régulièrement.
Je passe la première page, mais quand j’arrive sur la seconde (page de menus) et quand j’essaie d’accéder à l’item « Missions », j’ai ce message :
Variable objet ou variable bloc with non définie.
Voici la partie du code source de la page :

Code :

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

1
2
3
4
5
6
7
8
 <tr>
  <td align="right"><a class="aAction" href="Missions/menu.asp"><img src="../img/icone_mission.gif" border="0" align="center"></a></td>
  <td><a class="aAction" href="Missions/menu.asp"><font size="4">MISSIONS</font></a></td>
  <!--
  <td align="right"><a class="aAction" href="#"><img src="../img/icone_mission.gif" border="0" align="center"></a></td>
  <td><a class="aAction" href="#"><font size="4">MISSIONS</font></a><br>La gestion des missions est exceptionnellement<br> indisponible le 2 et le 3 mars 2006.</td>
  -->
</tr>

et le programme

' Formulaire

'rempli les champs nécessaires...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
     IE.Document.All("NumExp").Value = 14298
    IE.Document.All("motDePasse").Value = "nemo"
    IE.Document.All("envoyer").Click                                             'clique sur le bouton...
 
    Do While IE.ReadyState <> 4
    DoEvents
    Loop
 
    IE.Document.All("Missions/menu.asp").Click
    Do While IE.ReadyState <> 4
    DoEvents
    Loop
 
Stop

Merci de m’aider?

[Kerod]

On veut bien t'aider mais en quoi ce que tu cherches est du (X)HTML ? Il faut pas oublier qu'avec cette technologie on ne peut pas obtenir de page dynamique. Autrement dit il te faut une technologie, autre que le (X)HTML, qui puisse le permettre.

Par ailleurs, je vois du code VB
Tu souhaites faire du .NET ?

[epaminondas]

Bonjour,
le programme sur lequel je travaille est en VBA, mais le formulaire est sur un intranet. Je pensais que le code du formulaire était du HTML. Si je ne suis pas sur le bon forum, peux tu me conseiller?
Merci

[12monkeys]

Bonjour

Un formulaire est bien construit en html mais dans ton exemple il n'y a pas de formulaire ?!

Pour remplir un formulaire il faut remplir le value des input :

Code :

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

<input type="text" name="deb" value="mettre ici la valeur de tes variables">

Enfin si j'ai bien compris...

[epaminondas]

Merci pour ta réponse 12monkeys.
En recherchant les input, j'ai passé une première page avec codes d'authentification. Mais je suis arrivé à une page de menus avec "Missions" et plus d'input. Comme j'ai repéré un href="Missions/menu.asp" j'ai cru pouvoir faire un click dessus.
Manuellement quand je clique sur "issions", je franchis la page ...
Quant au formulaire, je n'y suis pas encore ...
Est-ce que tu y comprends qq chose?
A+

[12monkeys]

Pas un traitre mot

Tu codes bien toi même ?? Je demande parce que tu "cherches des inputs", mais il faut les mettre toi même dans ta page, ils ne vont pas se créer tous seuls !

[epaminondas]

Bonjour,
C'est Kerod qui est dans le vrai. Mais sa remarque m'était passée largement au-dessus de la tête.
Pour 12 monkey's, non je ne code pas. Je travaille sur un programme VBA pour accéder automatiquement, à un programme de l'Association ou je suis bénévole. Je construis, en aval et en amont du programme de l'Association, un programme VBA qui sert les préoccupations de l'équipe avec laquelle je travaille : édition de documents, de lettres de transmission, mise en place d'un suivi, ...
J'ai franchi la première page du programme de l'Association et je bute sur le .asp.
Si j'ai bien compris, il s'agirait de dialoguer avec le serveur, peut être avec le petit bout de programme suivant

Dim xmlHttp As new XMLHTTPRequest
Dim xmlDoc As DOMDocument
'On ouvre la connexion POST (ou GET) avec le serveur web
xmlHttp.Open "POST", "http://localhost/xmlcode/menu.asp", False
'On établit la connexion
xmlHttp.Send
'On reçoit la réponse - remarquez que différents types de réponse
'(binaire, texte, etc...) sont supportés.
Set xmlDoc = xmlHttp.responseXML

Je vais vérifier que tous les termes correspondent à mon problème et tenter l'expérience. Mais ça m'aiderait si vous me confirmiez que je suis dans la bonne direction.
Merci à vous.

[epaminondas]

Bonjour,
Le petit programme que j'indiquais ne fonctionne pas mais en me plongeant dans une initiation au html, j'ai compris que HREF voulait dire hypertext reference. Il me semble donc qu'il s'agit de trouver la ou les instructions qui mène au lien "Missions/menu.asp".
Comme c'est en VBA peut être dois-je changer de forum ?
Merci