Discussion :

[Toftof]

Bonjour,

J'utilise l'automation IE depuis Access 97 pour me connecter sur des sites distants. Pour info, voici comment je pratique :

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
 
'
'Déclaration des variables
'-------------------------
'
Dim sHTTP As String       'Adresse de la page HTTP à rapatrier
 
Dim objIE As Object        'Objet DAO utilise pour piloter IE
'
'Ouverture d IE
'---------------
'
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
'
'Demande d accès à la page à IE
'-------------------------------
'
objIE.navigate sHTTP
'
'Attente ouverture page et
'Gestion du WebSense
'---------------------------
'
Do While objIE.Busy = True
    DoEvents
    '
    'Validation Accès Internet
    '--------------------------
    '
    If flgFindWindow("Enter Network Password", 1) > 0 Then
        SendKeys "~"
    end if
Loop
'
'Verification cas d echec de connexion
'--------------------------------------
'
If flgFindWindow("Access Denied", 1) > 0 Then
    '
    'Si echec d acces au web, fermeture d IE + arret traitement
    '-----------------------------------------------------------
    '
    vRetour = fCloseAppWin("IEFrame", 2)
    '
    'Erreur
    '-------
    '
    Error 1000 'Erreur repondant à une gestion d erreur perso
End If

Seulement, l'accès exterieur est controle par un WebSense qui demande une authentification (=id reseau en cours). Jusqu'à présent je contournais le probleme grâce à un SendKey() mais, aujourd'hui, je vais sur un site qui lui aussi demande une authentification (methode POST) : ayant du mal à différencier les deux demande d'authentification, cela crée des conflits de destination entre les différents SendKey().
Je crois savoir que l'on peut transmettre les authentifications par le biais de l'objet IE mais mes recherches se sont avérées infructueuses jusqu'à présent.

Si quelqu'un avait la bonne idée de se montrer plus efficace que moi, cela m'arrangerait bien.
Merci par avance pour vos contributions.

[Arkham46]

Bjr,

pas facile de piloter IE...
pour remplir un formulaire html voir ce lien :
http://www.developpez.net/forums/sho...d.php?t=107582

[Toftof]

Re,

Finalement j'ai contourné le problême en rajoutant un booleen puisque l'ordre des deux authentification est toujours le même. J'ai longuement cherché en mode debug dans les différentes propriétés de l'objet mais je n'ai pas su trouver laquelle utiliser.
Par contre tant que j'y pense, petit ajout à l'exemple de code fourni précédemment :

Code :

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

1
2
3
4
5
 
dim sFile as string     'Nom absolu du fichier de sauvegarde
                            'testé uniquement sur disque local mais
                            ' il ne devrait pas y avoir de pb pour les disques reseaux
objIE.Document.saveas (sFile)

Ceci permet de sauvegarder en local la page active.

Merci pour ta coopération