Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Récupérer une partie d'une page web non structurée

soan

XLDnaute Barbatruc
Inactif
Bonjour msauvegrain, le fil,

dans ton énoncé, tu as écrit : « Je souhaite récupérer les informations
concernant le timbre mais pas le reste. »

malheureusement, je ne connaît pas grand chose aux réseaux !

je peux seulement te dire que si tu cherches à récupérer
un timbre de voix, j'en reste coi !


soan
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re,

Bonjour zebanx

Je n'ai fait que poser une question au demandeur
(dans le message#2)
Si il avait répondu, je ne serais pas en train d'écrire le message#18.

Au moins, cela occupe pendant le confinement.
Et tant pis, si on diverge.
 

zebanx

XLDnaute Accro

Re-

Je ne connais pas du tout.
S'il y a déjà une réponse intéressante fournie sur le site avec l'exploration DOM ou un lien qui vous (te) parait approprié, pourrais-tu nous le communiquer stp ?
Précision : utilisation discrète à titre tout à fait personnelle et non commerciale.

Merci par avance,
zebanx
 

Staple1600

XLDnaute Barbatruc
Re

Zebanx
Excel-downloads fourmille d'exemple de ce type
(D'ailleurs tu m'y croiseras souvent (lol))
Ou sinon plus simple, colle patricktoulon à la culotte (si je puis me permette )
En utilisant l'outil idoine d'XLD.
PS: Je suis pas sur que tu ais vu mon précédent message.
 

patricktoulon

XLDnaute Barbatruc
de la doc sur le DOM en vba a proprement parler tu en trouvera pas beaucoup
en js oui et pour la plus part des fonctions basique est transcriptible en vba
pour la plus part des besoins dans le contexte d'une extraction VBA le DOM1 suffit
pour des extractions et travaux plus complexe on utilisera le DOM2

un exemple je récupère le 1er tableau
VB:
Sub test()
    Dim reQ, Url$, x$, table As Object
    Url = "https://www.wikitimbres.fr/timbres/12398/2021-nouvel-an-chinois-annee-du-buffle"
    Set reQ = CreateObject("microsoft.xmlhttp")
    reQ.Open "get", Url, False
    reQ.send
    With CreateObject("htmlfile")
        .body.innerhtml = reQ.responsetext
        Set table = .getelementsbytagname("table")
    End With

    MsgBox "la premiere table en format text" & vbCrLf & table(0).innertext
    MsgBox "la premiere table en format html" & vbCrLf & table(0).innerhtml
 
 maligne3 = table(0).getelementsbytagname("tr")(2).innertext

MsgBox "' on peut même disséquer la table encore pour aller chercher une cellule ou une ligne  précise " _
& vbCrLf & "----" & vbCrLf & maligne3

End Sub
 

msauvegrain

XLDnaute Nouveau
je ne suis pas arrivé à le faire avec vba car je récupère toutes les intances, ou il faut que je les renseigne individuellement dans le code. le but est de faire un tableau pour documenter une base de ma collection de timbres
Merci
 

patricktoulon

XLDnaute Barbatruc
re
et il est ou le problème?
cette base tu la donne quand ?
et sous quelle forme tu le veux le retour?

a tu un exemple de retour de façon a ce que l'on sache ce que tu veux récupérer?

bref c'est quand même un comble que ce soit nous qui doivent poser des questions

bref si google sheet te convient

la prochaine fois soit plus précis dans tes demandes on est pas dans ta tète ni devant ton pc
 

msauvegrain

XLDnaute Nouveau
Bonsoir,
je m'excuse mais c'est la première fois que j'utilise ce forum et je suis novice en VBA. je débute.

Ci-joint fichier Fr-2021 ou je veux transférer les infos manquantes
 

Pièces jointes

  • Fr_2021.xlsx
    11.8 KB · Affichages: 14

Discussions similaires

Réponses
27
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…