vba, html et submit

**epaminondas** · 06/06/2008, 16h36

Bonjour,
Je pilote un programme intranet avec VBA Excel.
Après avoir renseigné les différents paramètres. J'arrive à un bouton lancer qui va sélectionner les articles correspondants aux données entrées.

Voici le code source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
</tr><tr>
 <td colspan="8" align="center">
   <input type="image" src="../../../../img/bt_lancer.gif">
 </td>
</tr>
</table>
</form>
<br>
<hr>
</body>
</html>

Et voici une des versions de mon module chargé de traiter le problème :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Option Explicit
 
Private Declare Function URLDownloadToCacheFile Lib "urlmon" Alias "URLDownloadToCacheFileA" (ByVal lpUnkcaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwBufLength As Long, ByVal dwReserved As Long, ByVal IBindStatusCallback As Long) As Long
 
 
Private Function DownloadFile(URL As String) As String
    Dim lngRetVal As Long
    Dim sLocalFilename As String
    'procedure de telechargement de l'image (trouvé sur le net???)
    '(pour eviter d'utiliser un contrôle Inet...)
    sLocalFilename = Space(300)
    lngRetVal = URLDownloadToCacheFile(0, URL, sLocalFilename, Len(sLocalFilename), 0, 0)
 
    If lngRetVal = 0 Then
        DownloadFile = Trim(sLocalFilename)
    End If
End Function
 
Function RndStr(nb As Integer) As String
Dim I As Integer
'renvoie une chaine de nb caracteres aléatoires...(de a à z)
RndStr = ""
For I = 1 To nb
RndStr = RndStr + Chr(CInt(Rnd * 25) + 97)
Next I
 
End Function
 
Public Sub ExpertResearch()                                                                         ' Accès au programme Experts
    Dim maPageHtml As HTMLDocument
    Dim Helem As HTMLElementCollection
    Dim TypeDocument As String
    Dim Deleg As Object
    Dim HTMLDelegElement(100) As HTMLElementCollection
    Dim htmlDoc As Object
    Dim IESubmit As HTMLFormElement
    Dim IECtrl As HTMLFormElement
    Dim IE As Object
    Dim sLocalFilename As String
    Const READYSTATE_INTERACTIVE = 3
    Const READYSTATE_COMPLETE = 4
 
        'crée un objet internet Explorer
        Set IE = CreateObject("InternetExplorer.Application")
        'le masque
        IE.Visible = True
 
        'ouvre la page d'enregistrement de identification Ecti
        IE.navigate "http://www.intranet-ecti.org/asp/Experts/ExpertsActifs/selectionGenerale/filtre.asp"
        'attends que la page soit ouverte
        Do While IE.readyState <> READYSTATE_INTERACTIVE
        DoEvents
        Loop
 
        Do While IE.readyState <> READYSTATE_COMPLETE
        DoEvents
        Loop
 
' Formulaire
 
    'remplit les champs nécessaires...
    IE.DOCUMENT.all("AnNai").Value = "1940"
    IE.DOCUMENT.all("M10").Value = "COMPTABLE"
    IE.DOCUMENT.all("M11").Value = "GESTION"
    IE.DOCUMENT.all("M12").Value = "AUDIT"
    IE.DOCUMENT.all("Dep1").Value = "75"
    IE.DOCUMENT.all("Dep2").Value = "77"
    IE.DOCUMENT.all("Dep3").Value = "78"
    IE.DOCUMENT.all("Dep4").Value = "91"
    IE.DOCUMENT.all("Dep5").Value = "92"
    IE.DOCUMENT.all("Dep6").Value = "93"
    IE.DOCUMENT.all("Dep7").Value = "94"
    IE.DOCUMENT.all("Dep8").Value = "95"
 
Do While IE.readyState <> READYSTATE_INTERACTIVE
   <souligne><gras>DoEvents</gras></souligne>
Loop
'
Do While IE.readyState <> READYSTATE_COMPLETE
   DoEvents
Loop
 
Set IESubmit = htmlDoc.forms(0)
IESubmit.submit
 
End Sub

Je perds la main et quand je fais CTRL + Pause, le curseur est sur le do events souligné.
Si quelqu'un peut me sortir du pétrin...
Silky Road m'a déjà aidé sur ce programme ...
Merci.

**Godzestla** · 06/06/2008, 19h28

Epamimondas,

suggestion d'un pure néophyte en html ...

Si tu prends en debug l'instruction qui précède ton doevents sans fin,
à savoir

Code :

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

1
2
 
Do While IE.readyState <> READYSTATE_INTERACTIVE

qu'est ce que tu obtiens dans IE.readystate ?

A propos

t'as encore oublié les balises code.
Pan pan cul cul.

**epaminondas** · 06/06/2008, 19h51

Mille excuses pour la balise.

j'ai mis un F9 sur l'instruction précédent DoEvents et, à coup de F8, j'ai une boucle sans fin.
Je la mets en commentaires et le curseur passe sur la seconde boucle pour s'arrêter sur set IESubmit en déclarant une erreur 91 - variable objet ... non définie.
J'ai rajouté deux boucles après ... pareil
A chaque fois la page IE se charge avec les paramètres choisis (M1,Dep,...)
A+

**Godzestla** · 06/06/2008, 19h55

Oui mais quand tu es en debug sur Doevents, que vaut IE.readyState quand tu passe ton curseur sur le code

Code :

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

1
2
 
Do While IE.readyState <> READYSTATE_INTERACTIVE

(c'était ma question tidju

)

**epaminondas** · 07/06/2008, 08h24

Nada!
READYSTATE_INTERACTIVE est bien à 3 mais le curseur n'affiche rien sur IE.readystate et la page est la (comme Ivanovic). Mais si je clique sur lancer j'aboutis à un erreur.

**ouskel'n'or** · 07/06/2008, 10h22

Tout béotien que je sois pour ce qui concerne les communications avec internet, si tu as une erreur de variable non déclarée sur IESubmit, je pense plutôt que l'erreur est sur htmlDoc qui, bien que déclaré en tant qu'objet, n'est pas instancié. A quoi correspond cet objet ?
A tout hasard...

**epaminondas** · 08/06/2008, 08h11

Bien vu ouskel'n'or,
c'est une redondance par rapport à MapageHTML qui dit bien ce que ça veut dire. Mais ça ne résoud pas le problème.
A +

**epaminondas** · 08/06/2008, 10h39

Je crois avoir progressé.
En fait, quand je suis sur la page web, et après avoir renseigné le formulaire, il me suffit de faire "entrée" et la page suivante s'affiche. Je crois comprendre qu'il faudrait, dans le programme vba, simuler ce retour charriot.
Comment ?
Je cherche en mettant dans form(0) un code ASCII

Si vous avez quelques lumières...

A +

**ouskel'n'or** · 08/06/2008, 10h43

Tu ajoutes la ligne

Code :

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

Sendkeys "~"

Bonne journée

**epaminondas** · 09/06/2008, 07h46

Helas Menelas,
le send keys ne va pas sur ma pageweb, c'est pourquoi j'essaie le submit mais le curseur affiche "nothing" quand j'essaie de transférer (set) sur form(13).
Je cherche ...

**ouskel'n'or** · 09/06/2008, 08h24

J'ai lu, il y a peu de jours que sur le web, le caractère Entrée était effectivement différent. Une recherche sur ce forum, peut-être... Par contre, comme c'était noyé dans une discussion, je ne sais pas avec quel mot clé rechercher.
Je jète un oeil mais peut-être auras-tu plus de chances que moi...

Regarde déjà ici http://www.developpez.net/forums/sho...09#post3177809, tu as la méthode d'utilisation de submit.

**epaminondas** · 11/06/2008, 08h34

J'étais en communication evec LedZepp. j'avais emprunté et adapté son code source sur le pilotage d'un programme web.
Apparemment mon programme marche chez lui.
Nous sommes tombé en convergence sur une solution de remplacement qui consiste à utiliser ie.navigate pour transporter les paramètres du formulaire et accéder à la page suivante.
Ca marche!
J'ai trouvé la méthode de LedZepp assez sioux, parce qu'il a testé mon sub sans avoir mes codes d'authentification.

On peut considérer ce problème comme résolu, mais je reviendrai si je peux revenir à la solution précédente, ça peut toujours servir à quelqu'un.
Merci pour l'aide apportée.

vba, html et submit

Macros et VBA Excel

Discussions similaires

Partager

Partager