Forums XLPages

Excel & VBA Forum principal [résolu] Cueillette d'URL

Re: Cueillette d'URL
#11
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-11-2012 19h01
Bonjour Laurent, le forum,

Tout d'abord une définition :

Tiré de http://www.w3schools.com/tags/att_global_id.asp

HTML id Attribute, definition and Usage:
The id attribute specifies a unique id for an HTML element (the value must be unique within the HTML document).
"L'attribut id fournit un identificateur unique pour un élément Html (cet identificateur doit être unique dans le document Html."

In HTML 4.01, the id attribute cannot be used with: <base>, <head>, <html>, <meta>, <param>, <script>, <style>, and <title>
Cet attribut id s'applique à tout élément html sauf : ...

Contrairement à ce que j'avais cru comprendre, il ne s'agit pas de ramasser un attribut id particulier, ce que permet la méthode getElementById(), mais plutôt de ramasser tous les éléments qui portent un attribut id. Ce qui est une autre question.

Mais j'aperçois un boa sous le rocher.
"...que les URL qui ce terminent par ?id=191591  la valeur après égal n'est jamais identique !"

Ce qui pourrait éclairer mon neurone (je n'en ai qu'un, ce qui me permet de réduire à presque rien les frais d'administration.) serait de savoir si tu fournis une URL, du type http://www.quelquepart.onnesaitou/mahelnawe.aspx?ID=truc ou comme pour le fil auquel nous participons http://www.mdf-xlpages.com/modules/ne ... ost_id=6347#forumpost6347.

Donc, voudrais-tu
1.    ramasser tous les URL de toutes les balises portant un attribut ID dans une page web;
2.    ou bien voudrais-tu ramasser tous les URL (d'on ne sait où) qui "se terminent par ?id="

1.    C'est, ma foi, assez simple
2.    Ce me semble impossible à moins de verser dans la magie ou l'explosion combinatoire ou les deux.

Précise ta question s'il-te-plaît.

Cordialement,

Guy

Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#12
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 18-11-2012 19h31
Salut le forum

Un bout de code pour le principe de récupération.
For Each OLink In IEDOC.Links
    If InStr(OLink.href, "?id=") > 0 Then
        'Traitement
    Next OLink
End With

Mytå




Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#13
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-11-2012 20h00
Bonjour Mytå,

Ne serait-ce pas là le boa dont je parlais plus haut?

Ce forum donne à échanger sur le tableur ou chiffrier Excel, il est alimenté par des bénévoles mono ou pluri-neuronaux, selon.

D'excellents topos sont traités, d'excellents intervenants et intervenantes répondent avec pertinence et précision à des questions portant sur Excel.

Je ne vois ici aucun indice incitant à penser que ce site est dédié aux bookmakers.
Bookmaker : One who accepts and pays off bets, as on a horserace.
Traduction libre : Zigue qui accepte et paie pour les paris, comme pour les courses de chevaux.

Je ne vois, ici, personne qui paie et personne qui hennit, que des bénévoles qui offrent des réponses sur Excel à des membres qui posent des questions sur Excel.

"Il n'y a pas de réponse claire à une question obscure et pas de réponse du tout à une question mal posée"

Reste à Laurent, alias mahelnawe, à poser sa question le plus clairement possible. D'ici là nous laisserons courir les chevaux et les bookmakers.

Incisivement,

Guy


Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#14
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 18-11-2012 21h34
 Re le forum

Pour faire l'extraction des URL contenant 'topic_id=' d'une page web sans doublons.
Option Explicit

' ***************************************
' * Nécessite d'activer les références  *
' *   Microsoft HTML Objects Library    *
' *     Microsoft Internet Controls     *
' ***************************************

Sub Get_Id()
    Dim IE As InternetExplorer
    Dim IEDOC As HTMLDocument
    Dim Dico As Object
    Dim OLink As Object
    Dim URL_Adr As String

    URL_Adr = "http://www.mdf-xlpages.com/"

    Set Dico = CreateObject("Scripting.Dictionary")
    Set IE = CreateObject("InternetExplorer.Application")
   
    IE.Visible = False
    IE.navigate URL_Adr
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop

    Set IEDOC = IE.document

    For Each OLink In IEDOC.Links
        If InStr(OLink.href, "topic_id=") > 0 Then
            Dico(OLink.href) = ""
        End If
    Next OLink

    [A2].Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)

    Set IEDOC = Nothing
    IE.Quit
    Set IE = Nothing
    Set Dico = Nothing

End Sub
Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#15
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-11-2012 21h58
Bonjour Mytå

La question originale de mahelnawe était "...URL qui ce terminent par ?id=", pas "...page web qui contient topic_id=".

Pour ce que j'en sais, l'expression "?id=" appartient à un langage côté serveur (Server side scripting : asp, php, etc), pas au html.

Il est donc impératif, avant de fournir du code à l'évidence copié, d'attendre des précisions de notre ami mahelnawe.

Aucune course au copier-coller n'est engagée ici, et je ne parierais d'ailleurs ni sur un pur sang ni sur un canasson. Pas de pari du tout, est-ce assez clair?

Aussi à quoi pourront bien servir de petits bouts de code glanés ici ou là si le destinataire ne sait qu'en faire.

Laissons mijoter je te prie.

Cordialement,

Guy


Edité par Guy le 18/11/2012 23:17:28
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#16
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 18-11-2012 21h59
Bonsoir guy ,le Forum ,
Merci guy pour ses informations ,je comprend bien que chaque id est unique ,j'ai vue dans le code href qui est utilisé comme pointeur pour récuperer les URL, je voulai simplement savoir si il etait possible en plus de href de definir un deuxieme pointeur ?
Sur la liste d'url qui apparai, pas forcé que toutes soit util ,definir un deuxieme pointeur limiterai le nombre d'url non ?
je decouvrent avec passion les capacité du vba ,progresse beaucoup depuit que j'ai decouvert CE cite de DIDIER (infiniment merci )votre aide,le partage de vos connaissances, c'est enorme ...
je dirai qu'à l'avenir je me réfèrencerai sur d'autre sujet pour expliquer ce que je souhaite faire .




Merci Myta pour ce bout de code
merci à vous ..
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#17
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 18-11-2012 22h11
Re le forum

Citation :
mahelnawe a écrit : Bonsoir le Forum,
J'ouvre une page html et dans le code de cette page ce trouve des url ,comment par macro est t'il possible dans crée la liste et de stoker ces liens en colonne b2
merci de votre aide moi j'ai chercher sans succé

La demande était bien de récupérer des URL d'une page WEB, par la suite il
a été rajouté que l'URL devait contenir ?Id=

Mytå


Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#18
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 18-11-2012 22h18
bonsoir le forum,Guy
je te remerci hunblement d'avoir compris que je ne n'etait pas calé en vba ,aucun soucis pour moi ,c'est d'ailleur pour cela Guy que je m'en réfère à vos conaîssances guy,didier,myta,jean-marie et tous les autre ....
merci
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#19
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 18-11-2012 22h26
bonsoir le Forum ,myta,
oui c'etait ca! ...
merci
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#20
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-11-2012 23h34
Épilogue,

Nous devons convenir que cela n'était pas clair, voilà pourquoi je n'ai pas ri (humour guyesque).

Et pour ce qui est du code fournit :
"From a developper's point of view, copy and paste is just a nightmare waiting to happen."

Cordialement,

Guy
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes