[VBA] Simplifier un petit Code pour aller chercher une valeur sur une Page Web

Bonjour à tous

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

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

re
bonjour pourquoi aller sur le net??
https://www.developpez.net/forums/d1...ographe-nikel/

et si tu tiens a internet ta sub au propre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim i As Integer, IE As Object, allresults As Object Set IE = CreateObject("InternetExplorer.Application") 'IE.Visible = True IE.navigate "http://www.chiffre-en-lettre.fr/ecrire-nombre-1555,55" Do: DoEvents: Loop While IE.readyState <> 4 'Or IE.busy Set IEDoc = IE.document Set allresults = IEDoc.getElementsBytagname("h6") For i = 0 To allresults.Length - 1 Sheets("Feuil3").Range("A" & i + 1) = allresults(i).innertext Next IE.Quit End Sub

---

mais entre nous j'ai trouvé des sites plus rapides

Merci pour le lien :mrgreen:
je prefère comprendre le code que je mets, et le tiens est vraiment compliquer :calim2:, mais je vais me pencher dessus :) car ça sera bcp mieux que d'aller sur internet

Et puis c'etait un test qui pourra me servir pour d'autre recherche de valeur sur des pages web ;)

si non j'ai trouvé ma réponse, c'était dû a une erreur de ma part je chercher avec une valeur i=3 et c'etait 2 :? pour ça que j'avais des messages d'erreurs

donc je remplace ça

Code:

---

1 2 3 4 5 6 7 8 9

Set Inputconnexion = IEDoc.getElementsByClassName("DIVcol1")(0).getElementsByTagName("h6")   i = 0 For Each oElement In Inputconnexion   Sheets("Feuil3").Range("A" & i + 1) = Replace(Inputconnexion(2).innerText, " ", "")   i = i + 1 Next oElement

---

Par :

Code:

---

1 2 3 4

Sheets("Feuil3").Range("A1") = Replace(IEDoc.getElementsByClassName("DIVcol1")(0).getElementsByTagName("h6")(2).innerText, " ", "")

---

Merci pour ton aide :D

Demain je me penche sur ton lien pour le comprendre

ok tu veux donc le 3eme

Code:

---

Sheets("Feuil3").Range("A1") =trim(IEDoc.getelementsTagName("h6")(2).innerText)

---

merci je ne connaissais pas Trim. :D bcp plus simple :arf:

Si non si d'autre personnes veulent essayer le code, il faut rajouter "By" : getElementsByTagName

oui autant pour moi j'ai taper un peu vite

je m'endoute, si non penses-tu que tes codes (celui du lien) peuvent être porté sur Access car j'ai essayé et cela fonctionne pas. j'ai essayé de remplacer Rept par String aussi


Modif: c'est bon j'ai trouvé, cela fonction pour ton deuxième code. il faut remplacer "application.Rept" par "String" et bien inversé ce qu'il y a entre parrenthèse.

Merci pour cette fonction :D