Discussion :

[lakhdar16]

Bonjour,

j'utilise une fonction pour contrôler une page Web via Ms.Access, cette fonction marche nikel sur mon PC mais quand j'ai voulu la tester sur les autres PC de mes collaborateurs, elle ne marche pas.
sachant que les références Microsoft HTML Object library et Microsoft Internet Controls sont cochées.
J'utilise internet explorer 9, et mes collaborateurs utilisent la version 8 et 10.

ci-dessous la fonction:

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
 
Sub connexion(ByVal NSD As Double)
 
    Dim IE As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    Set IE = New InternetExplorer
 
    IE.navigate ("http://otadebflexy:4040/adv/")
 
    IE.Visible = True
 
    ' ca bloque ICI ################################
 
 
 
     ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    Set IEdoc = IE.Document
 
    'login
     Set DOCelement = IEdoc.getElementsByName("user").item
     DOCelement.Value = "xxxxxxxxx"
 
    'password
     Set DOCelement = IEdoc.getElementsByName("passe").item
     DOCelement.Value = "xxxxxxxxxxx"
     DOCelement.Select
 
    'connexion
     Set DOCelement = IEdoc.Forms(0)
     DOCelement.submit
 
     Do Until IE.ReadyState = 3
        DoEvents
    Loop
 
      IE.navigate "http://otadebflexy:4040/adv/remise_flexy.php"
 
     Do Until IE.ReadyState = 4
        DoEvents
    Loop
    IE.Document.getElementById("num_flexy_r").Value = NSD
    IE.Document.Forms(0).submit
 
     IE.Visible = True
End Sub

merci d'avance pour l'aide que vous pouvez m'apporter.

cordialement.

[marot_r]

Bonjour, essaye avec ceci :

Code :

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

dim IE as object:set IE=CreateObject("InternetExplorer.Application")

Et décoche la référence à Microsoft Internet Controls

Cela devrait te rendre indépendant de la version d'IE installé. L'incovénient c'est que InteliSens ne fonctionne plus puisque le compilateur ne sait pas à quel objet ti fais référence.

A+

[lakhdar16]

bonjour,

merci marot_r pour votre réponse, j'ai appliqué ta proposition mais ça bloque toujours. je comprend pas pourtant ça marche nickel sur mon PC.

y as il un détail que j'ai oublié?

merci.

[pc75]

Bonjour,

Et si tu tentes ça (sans les parenthèses) ?

Code :

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

1
2
 
IE.navigate "http://otadebflexy:4040/adv/"

[lakhdar16]

bonjour,

merci pour votre réponse.

sur mon PC la fonction se termine jusqu'à la fin, mais sur les autre PC elle s’arrête à l'insertion du User et le mot de passe.
je veux connaitre pourquoi elle ne se poursuit pas si quelqu'un peux m'aider.

sachant que toutes les références existent sur les autres PC, et que nous avons le même système d'exploitation (Windows7/64Bit) et les mêmes caractéristiques. à part la version de l'internet Explorer. moi j'utilise la version 9 et les autres, entre 10 et 8.

la procédure bloque ici:

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
   Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    Set IEdoc = IE.Document
 
    'login
     Set DOCelement = IEdoc.getElementsByName("user").item
     DOCelement.Value = "xxxxxxxxx"
 
    'password
     Set DOCelement = IEdoc.getElementsByName("passe").item
     DOCelement.Value = "xxxxxxxxxxx"
     DOCelement.Select
 
    'connexion
     Set DOCelement = IEdoc.Forms(0)
     DOCelement.submit

merci beaucoup pour votre aide.

cordialement.

[lakhdar16]

bonjour,

je pense qu'il ne s’agit pas de la version d'internet explorer, j'ai fais un essai sur un autre PC qui a la version 9 d'internet explorer ça donne la même chose.

le IE.ReadyState = READYSTATE_COMPLETE ou IE.ReadyState = 4 n'est pas reconnu.

je suis en mode Bug

[pc75]

Re,

Une autre piste ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
...
IE.Navigate MyUrl
Do While IE.Busy
Loop
On Error Resume Next
Set IEdoc = Nothing
Do Until Not IEdoc Is Nothing
    Set IEdoc = IE.Document
Loop
...

[lakhdar16]

bonjour,

merci pc75 mais le problème persiste, le IE.ReadyState = READYSTATE_COMPLETE ou IE.ReadyState = 4 n'est pas reconnu, je comprend pas pourquoi !!
j'ai vérifier tout les références, la version du Ms.Office ... tout est identique.

que puis-je faire pour que le READYSTATE_COMPLETE soit reconnu ?

merci.