Discussion :

[mfoxy]

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.

[patricktoulon]

bonsoir

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

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
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

[mfoxy]

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 :

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

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 ?

[patricktoulon]

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 :

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
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

[mfoxy]

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

Milles merci

[mfoxy]

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