Discussion :

[Linda13]

Bonjour,

Je suis actuellement en stage de fin d'étude (je n'ai jamais étudier le vba), je travail sur un projet (en VBA sous access 2002) qui permet de naviguer sur un site internet interne à l'entreprise où je travail. Je sais ouvrir une page internet, travailler sur celle-ci et agir sur les éléments de la page, mais lorsque je clique sur un lien de cette même page, une nouvelle fenêtre Internet Explorer s'ouvre pour charger un autre site web et je souhaite pouvoir agir sur cette nouvelle page mais je n'y arrive vraiment pas... Est-il possible de pointé sur une page web déjà ouverte ? Avez-vous des propositions ?

En espérant que mes explications soient assez clairs, je vous remercie d'avance de vos réponses !!

[oxedet]

Bonjour,

Je ne comprends pas tout ce qui se passe :

- l'ouverture de la page web se fait depuis un contrôle web dans formulaire access ?
- quand on clique sur un lien, il ouvre IE et pointe sur autre chose que prévu ?
- ou il ouvre IE et pointe bien sur la page visée par le lien (ce qui peut être normal) ?

Si c'est le cas, la piste pourrait être de "scanner" le contenu dans le controle web à la recherche des liens ("<a href...") et d'intervenir dessus (genre paramètre HTML target=_self) avant affichage. Je ne suis pas certains de la faisabilité de cette manœuvre.

[Linda13]

Merci d'avoir pris la peine de m'aider oxedet !

En effet, l'ouverture de la page web se fait via mon formulaire access, le soucis c'est que mon IE pointe sur la page que j'ai ouverte au départ alors que je souhaite travailler sur celle pointé par le lien.

Entre temps j'ai trouver une solution qui fonctionne à merveille, voici mon code si ca peut aider quelqu'un !!

Solution 1:

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
' Pour chaque fenêtre Internet Explorer
    For Each IE In winShell
 
        If IE.LocationURL = "http://MaPageQueJaiOuvertAuPréalable.fr" Then
 
            ' Je pointe le membre Document
            Set IEDoc = IE.Document
 
           ' ...
        ElseIf IE.LocationURL = "http://MaPageQuiSestOuverteSeule" Then
 
            ' Attendre
            Do While IE.Busy
                DoEvents
            Loop
 
            Set IEDoc2 = IE.Document
            ' ...
         End If
    Next IE

Solution 2:

Code :

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

1
2
3
4
5
6
7
8
Set SWs = New SHDocVw.ShellWindows
    For Each IE2 In SWs
        If TypeOf IE2.Document Is HTMLDocument Then
            If IE2.Document.referrer = IE.LocationURL Then
                Debug.Print IE2.Document.Title
            End If
        End If
    Next IE2