Bonjour à tous

j'ai fait une macro test pour aller rechercher une valeur sur une page web.

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
Sub test()
Dim i As Integer
Dim IE As InternetExplorer
 
Dim oElement As Object
 
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.chiffre-en-lettre.fr/ecrire-nombre-1555,55"
 
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now + TimeSerial(0, 0, 5)
 
 
Set IEDoc = IE.document
 
Set Inputconnexion = IEDoc.getElementsByClassName("DIVcol1")(0).getElementsByTagName("h6")
 
i = 0
For Each oElement In Inputconnexion
 
    Sheets("Feuil3").Range("A" & i + 1) = Replace(Inputconnexion(i).innerText, "          ", "")
 
   i = i + 1
Next oElement
 
Set Inputconnexion = Nothing
Set IEDoc = Nothing
 
MsgBox "Fini"
End Sub
cela fonction mais je voudrais savoir si la fin du code peut être simplifié vu que je sais que la valeur qui m'interresse est la valeur quand i=2 et que le nom de l'objet oElement est "[object HTMLHeadingElement]". Donc qu'il aille cherche directement la valeur souhaitée.

Je vous remercie d'avance pour votre aide