Import données web

[druchmoain]

Hello le forum,

bonjour, j'aurai besoin d'importer une page web,

et de développer les liens qu'elle contient,

pour faire un tableau avec ses données.

je me débrouille avec excel 2010, mais je suis incompétent en programmation VBA et macros,

merci d'avance de vous pencher sur cette énigme (du moins pour moi)

 

[pijaku]

Re : Import données web

Bonjour,

Soit je ne comprends pas, soit vous ne donnez pas tous les éléments...

Bon quoiqu'il en soit, cette procédure devrait fonctionner :
!!! ATTENTION : créez au préalable une nouvelle feuille appelée : IMPORT

Lancer la macro appelée "importer".

Sub importer()
Dim Lig As Long, DernLig As Long, Hyperlien

With Sheets("IMPORT")
    .Cells.Clear
End With
With Sheets("ACCUEIL")
    DernLig = .Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 1 To DernLig
        Hyperlien = .Range("A" & Lig).Value
        Import (Hyperlien)
    Next Lig
End With
End Sub

Sub Import(Lien)
Application.ScreenUpdating = False
    With Sheets("IMPORT").QueryTables.Add(Connection:="URL;" & Lien & "" _
    , Destination:=Sheets("IMPORT").Range("A" & Rows.Count).End(xlUp).Offset(1, 0))
        .Name = ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Application.ScreenUpdating = True
End Sub

 

[fanadegra]

Re : Import données web

Bonjour le forum

un grand merci à pijaku et JBARBE,

je ne suis pas le demandeur de la macro mais cela va me rendre service

bonne journée