vba interaction avec multiple IE déjà ouverts

Version imprimable

02/02/2018, 21h05
mfoxy

vba interaction avec multiple IE déjà ouverts

Bonjour,

Je me présente, Michaël un néophyte de la programmation.

Tout d abord je souhaitais vous remercier pour vos participation qui mon permis de beaucoup avancer dans mon projet d interaction, automatisation traitement sur des pages HTML.

Cependant, je bloque sur un point.

Dans le cadre de mon travail, je ne dois pas interagir avec une instance IE mais trois...

Et aucune d entre elles ne peuvent être lancée par IE car lancer par connections par programme tiers.

Ce sont des pages intranet donc je ne peux divulguer le code source.

Pour infos, grâce à vos fils de discutions, je suis capable de lancer une application ie et interagir avec ses input,bouton,lien,...

Le problème est d' interagir avec tout ces éléments sur chacune des différentes instances IE déjà ouverte.

J arrive bien à récupérer une des fenêtre via la fonction getiebyurl de Patrick, mais je souhaiterais :

En fonction de l url de chaque page pouvoir :

1) prendre la main sur chacunes des fenêtres ouvertes en fonction de leur url respective

2) de façon à interagir avec leurs divers input en lecture et écriture

Pour passé les infos récupéree dans l une vers l autre , et validé (bouton) sur la troisième.

Je vous remercie d avance pour votre expertise et le temps que vous prendrez à m aider.

bonsoir

il te faut alors lister les fenetre ie ouvertes
analise cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
    Getfentre
End Sub
Public Function Getfentre(Optional url As String = "") As Object
    Dim objShell As Object, obj As Object
    Set objShell = CreateObject("shell.application")
    For Each obj In objShell.Windows
        'test de la presence de IE dans les treads
        Debug.Print "******************"
        Debug.Print "type de fenetre :" & TypeName(obj)
        Debug.Print "type de document   :" & TypeName(obj.document)
        Debug.Print "fenetre :" & obj.Name
        Debug.Print "titre :" & obj.locationNAME
        Debug.Print "url :" & obj.locationurl
    Next obj
End Function

;)

Bonsoir Patrick,
Je tenais à vous remercier car c est en grande partie grâce à vos différents postes que j ai pu avancer dans mon code.

Si j ai bien compris
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Getfenetre(url) ' cherche url souhaite 'ensuite pour exemple Obj.document.getelementbyid("xxx").value=variable ' pour coller dans seconde page par exemple Getfenetre(url2) Variable = obj.document.getelementbyid("**")
Est-ce correcte pour vous ou ai-je raté quelque chose ?

voici un exemple j'ai pas testé n'ayant pas tes deux pages mais ca doit etre un truc comme ca
je prend le contenu d'un element "toto" dans le document de ie1 et le met dans un element "titi" du document de ie2

Code:

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
Sub test()
    Dim ie1 As Object, ie2 As Object
    Set ie1 = Getfentre("http://.......")
    Set ie2 = Getfentre("http://.url2......")
    If Not ie1 Is Nothing Then
        set element = ie1.document.getelementbyid("toto")
        If Not ie2 Is Nothing Then
            ie2.document.getelementbyid("titi").innerhtml  = element.innerhtml
        End If
    End If
End Sub
Public Function Getfentre(Optional url As String = "") As Object
    Dim objShell As Object, obj As Object
    Set objShell = CreateObject("shell.application")
    For Each obj In objShell.Windows
        'test de la presence de IE dans les treads
        If TypeName(obj) = "Internet Explorer" Then
            If obj.locationurl = url Then Set Getfentre = obj
        End If
        'Debug.Print "******************"
        'Debug.Print "type de fenetre :" & TypeName(obj)
        'Debug.Print "type de document   :" & TypeName(obj.document)
        'Debug.Print "fenetre :" & obj.Name
        'Debug.Print "titre :" & obj.locationNAME
        'Debug.Print "url :" & obj.locationurl
    Next obj
End Function

03/02/2018, 13h02
mfoxy

re

Merci beaucoup
Je test cela lundi au boulot et reviens vers vous.

Milles merci
05/02/2018, 20h28
mfoxy

re

Hello,

Mauvaise nouvelle cela ne fonctionne pas.
Les deux fenêtres sont bien reconnues (getfentre)

J arrive bien à récupérer le contenu de l input de l ie1 mais impossible de mettre dans ie2.

Je vai tester plus en profondeur demain avec des getelementbyname(i) ou autre mais j approche du but.

Merci pour l aide
05/02/2018, 20h39
patricktoulon

re

re

peut etre faut il jouer avec le focus de la meme facon que l'on joue avec activate avec deux classeurs
12/02/2018, 20h07
mfoxy

re : resolu

Bonjour,

Après une bonne grippe je reviens vers vous.

Je suis enfin parvenu après de multiples test à utiliser des multiple fenêtre ie grâce à votre fonction et l utilisation des frames.

Merci encore pour votre aide.

Bav