Extraire des donnée web sur plusieur lien d'un même site web

Question

Bonjour, 

étant pas très doué pour la programmation j'aurais besoins d'aide. Je dois extraire les données suivante:

- nom de l'architecte
- adresse complète de l'architecte
- code postale
- ville
-Téléphone
-fax
-email
- site web
-nom des associés

sur l'adresse: https://www.archionweb.be/Public/List

Pouvez-vous m'aider car je connais rien en macro,...? 

En vous remerciant d'avance

PS: MA VERSION D'EXECL EST 2010

cs_Le Pivert · Answer

Bonjour, 

Voici une macro faite avec l'enregistreur de macro:


Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.archionweb.be/Public/List", _
        Destination:=Range("$A$1"))
        .Name = "fr-fr?pc=HPDTDFJS&ocid=HPCDHP&cobrand=hp13.msn"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

eliben22 · Answer

Je te remercie pour ta rapidité et ta gentillesse.  Le problème est que je n'obtient que la première page du site et pas les info de chaque liens exemple: https://www.archionweb.be/Public/Company/118 Mais c'est déjà un bon début. En te remerciant encore.

cs_Le Pivert · Answer

Il suffit d'aller sur la page web, de copier l'adresse et de la coller dans ta macro comme ceci:


Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.archionweb.be/Public/Company/118", _
        Destination:=Range("$A$1"))
        .Name = "fr-fr?pc=HPDTDFJS&ocid=HPCDHP&cobrand=hp13.msn"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

eliben22 · Answer

je te remercie pour toutes tes info. Je me demandais si il y avait pas un moyen de le faire automatiquement car j'ai plus de 12000 liens à faire. Encore merci

cs_Le Pivert · Answer

Voici un classeur exemple avec 5 feuilles. La macro boucle sur 5 adresses et les importe sur les 5 feuilles. C'est tout ce que j'ai pu faire. Pour 12000 liens c'est une autre paire de manche. Enfin cela te donne la marche à suivre.

 http://www.cjoint.com/data3/3Kks1s5klEL.htm

eliben22 · Answer

Je te remercie pour tout. TRès bon boulot.

Extraire des donnée web sur plusieur lien d'un même site web

6 réponses

Discussions similaires

Newsletters