Discussion :

[Luc Brunot]

bonjour,

J'essaye depuis des heures de trouver comment remplir des champs de formulaire sans ouvrir une nouvelle page web.

Le code dont je suis parti (http://qwazerty.developpez.com/tutoriels/vba/ie-et-vba-excel) ouvre une page Internet. Le code fonctionne dans ce cadre là.

Mais la page que je souhaite traiter est déjà ouverte (une partie des données est entrée manuellement). Je n'arrive pas à trouver le moyen d'arriver sur la fenêtre existante et non pas qu'une nouvelle fenêtre s'ouvre où ce qui est entré manuellement ne se retrouverait très probablement pas.

Que faudrait-il modifier ?

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
 
Sub FormulaireDC()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
 
    'Chargement d'une page Web 
    IE.Navigate "http://www.xxx"
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
    'On attend le chargement complet de la page
    WaitIE IE
 
    'On pointe le membre Document
    Set IEDoc = IE.document
 
    'On pointe notre Zone de texte
    Set InputGoogleZoneTexte = IEDoc.all("labels-3-catno")
 
    'On définit le texte que l'on souhaite placer à l'intérieur
    InputGoogleZoneTexte.Value = "Test"
 
    'On pointe notre bouton (laissé provisoirement mais pas besoin de clic bouton)
    Set InputGoogleBouton = IEDoc.all("btnG")
 
    'On simule un clic
    InputGoogleBouton.Click
 
    'On attend la fin de la recherche
    WaitIE IE
 
    'On libère les variables
    Set IE = Nothing
    Set IEDoc = Nothing
End Sub

Bonne soirée.

[mercatog]

J'étais dans un cas similaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim winShell As New ShellWindows
Dim IE As InternetExplorer
Const stURL As String = "http://www.xxx"
 
For Each IE In winShell
     If IE.LocationURL = stURL Then Exit For
Next IE
If Not IE Is Nothing Then
 
'Ton code avec IE instancié
End If

[Luc Brunot]

Bonsoir,

Super, ça fonctionne nickel.

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
 
Sub FormulaireDC()
 
'Déclaration des variables
Dim winShell As New ShellWindows
Dim IE As InternetExplorer
Const stURL As String = "http://www.xxx"
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
 
For Each IE In winShell
     If IE.LocationURL = stURL Then Exit For
Next IE
 
If Not IE Is Nothing Then
 
    'On pointe le membre Document
    Set IEDoc = IE.document
 
    'On pointe notre Zone de texte
    Set InputGoogleZoneTexte = IEDoc.all("labels-3-catno")
 
    'On définit le texte que l'on souhaite placer à l'intérieur
    InputGoogleZoneTexte.Value = "test"
 
    End If
 
'On libère les variables
    Set IE = Nothing
    Set IEDoc = Nothing
 
End Sub

Merci.

Je vais pouvoir passer aux étapes suivantes !

Cordialement.

[mercatog]

En late binding

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim winShell As Object, IE As Object
Const stURL As String = "http://www.xxx"
 
Set winShell = CreateObject("Shell.Application")
 
For Each IE In winShell.Windows
    If IE.LocationURL = stURL Then Exit For
Next IE
If Not IE Is Nothing Then
 
    'Ton code avec IE instancié
End If