Importer qu'une seule partie d'un site WEB
Bonjour,
Comme l'indique l'objet de ce topic, je cherche à importer qu'une partie d'un site web.
J'imagine que c'est très simple mais après recherches sur google et sur le forum j'ai pas trouver de réponse à ma question....
Exemple, l'importation d'une page web sur la "feuil1" occupe les lignes 1 à 500. Je souhaiterais que cela occupe uniquement les lignes 1 à 160 afin d'importer uniquement les données qui m’intéressent.
J'ai essayer de faire une plage avec Range("") mais sans grand succès.
sub (bob)
With Sheets("feuil1").QueryTables.Add(Connection:= _
"URL;xxx", Destination:=Sheets("feuil1").Range("$A$1:$A$160"))
.Name = "FRA"
.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
Merci par avance pour votre aide!
Je me permets de faire un up de ce sujet!
Bonne soirée !
Bonjour,
Il y a plusieurs façon de collecter des données du web. Cela dépend de la cible, et cela dépend du type de données que l'on veut collecter.
Répondre à une question aussi large n'est pas facile, voire impossible, sans connaître de quel site il s'agit, et sans connaître quelles données sont concernées. D'autant qu'il est souvent plus facile d'aller directement au résultat voulu, plutôt que de passer par la méthode que tu emploies.
As-tu juste essayé de voir ce que PowerQuery pouvait apporter ? Quelle est ta version d'excel ?
C'est bon j'ai trouvé une alternative pas très académique.
sub (bob)
With Sheets("feuil1").QueryTables.Add(Connection:= _
"URL;xxx", Destination:=Sheets("feuil1").Range("$A$1"))
.Name = "FRA"
.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
Worksheets("feuil1").Range("A161:M500").ClearContents
end sub