Discussion :

[nanousik]

Bonjour tout le monde,

Je tente de créer une application qui permet de piloter internet explorer depuis vba. J'utilise le tuto de Qwazerty qui est très bien expliqué.

Mon soucis est que j'ai une erreur du type:

Erreur d'éxécution '-2147467259 (80004005)':

Erreur Automation
Erreur non spécifiée

Sur la ligne IEDoc=IE.document, mon code:

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
Private Sub google()
 
    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
    Dim Generic As HTMLGenericElement
    Dim iCollection As IHTMLElementCollection
 
    'Set IE = CreateObject("internetexplorer.application")
    IE.navigate "https://distri-raccordement.edf.fr"
    IE.Visible = True
    Set IEDoc = IE.document
 
    wait
 
    ' On place les éléments "RECH_CRITERES" dans la variable
    Set iCollection = IEDoc.all("RECH_CRITERES")
 
    ' On pointe le premier élément
    Set Generic = iCollection(0)
 
    ' On place le texte de notre recherche
    Generic.Value = "22133776"
 
    Set IE = Nothing
    Set IEDoc = Nothing
 
End Sub
 
Sub wait()
 
Pausetime = 5
Start = Timer
Do While Timer < Start + Pausetime
    DoEvents
Loop
 
End Sub

[EngueEngue]

Que cherches tu à faire ?

[nanousik]

Plein de choses mais la ce n'est que le début je souhaites saisir des données dans la zone de texte portant comme attribut name "RECH_CRITERES"

[EngueEngue]

JE ne comprends pas pourquoi tu cherches une collection dans all qui n'existera surement pas.

Code :

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

1
2
3
Cequetuveux= "22133776"
IE.document.getElementById("RECH_CRITERES").Value = Cequetuveux
IE.document.getElementsByname("RECH_CRITERES").Value = Cequetuveux

[nanousik]

J'avais fais à la base avec getElementsByName mais de toute façon c'est pareil l'erreur je l'ai sur ie.document donc peut importe la propriété que je met derrière

[EngueEngue]

Une macro qui va rentrer des indentifiants dans des textbox, elle marche, inspire toi en

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 internetexplor()
Dim IE As Object
Dim Siteweb As String, Usernam As String, Passe As String
Dim InputUsername As HTMLInputElement
Dim InputPass As HTMLInputElement
Dim HTMLElementStandard As HTMLGenericElement
Dim valeur As Double
 
Dim textextrait As String
 
Set IE = CreateObject("InternetExplorer.Application")
 
Siteweb = Sheets("Real").Range("E1")
Usernam = Sheets("Real").Range("B2")
Passe = Sheets("Real").Range("B3")
 
IE.navigate Siteweb
IE.Visible = True
 
waitIE IE
 
IE.document.getElementById("ContentPlaceHolder1_UserName").Value = Usernam
IE.document.getElementById("ContentPlaceHolder1_UserPass").Value = Passe
 
waitIE IE
 
 
'IE.document.forms(0).submit
 
IE.document.getElementById("ContentPlaceHolder1_LoginBtn").Click
 
wait3secs