Discussion :

[Nain porte koi]

Hello,

j'utilise très peu, et certainement très mal, PowerQuery et j'aurais besoin d'un coup de main pour m'éviter de faire des 10aines de copier/coller manuels.

Je voudrais récupérer les classements, les titres (sans les années si possibles, mais ça je peux gérer) et interprètes des morceaux des 17 pages de ce site https://www.senscritique.com/liste/t...all_time/78610 et j'aimerai que ça soit quasi automatique (lire je ne voudrais pas faire 17 fois la même chose), comme ceci



C'est possible ?

Le truc que je constate avec mes tests, c'est que je ne récupère pas toujours les interprètes, on dirait que ça dépend de qqchose que je ne maitrise pas.

Merci d'avance à tous ceux qui se pencherons sur ce problème.

[mapeh]

Bonjour,
Ces codes, certes améliorables, te donnent l'entièreté des tables.
Code principal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
let
    Adr = "https://www.senscritique.com/liste/the_rolling_stone_magazine_s_500_greatest_songs_of_all_time/78610?page=",
    Lien = Table.FromList(List.TransformMany({[Adresse = Adr, Page = {1..17}]},
        each [Page], (s,c) => [Adresse = s[Adresse], Pages = c]), Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    Expand = Table.ExpandRecordColumn(Lien, "Column1", {"Adresse", "Pages"}, {"Adresse", "Pages"}),
    Fusion = Table.CombineColumns(Table.TransformColumnTypes(Expand, {{"Pages", type text}}, "fr-FR"),{"Adresse", "Pages"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"Fusionné"),
    Fonction = Table.AddColumn(Fusion, "fnHTML", each fnHTML([Fusionné])),
    ExpandTable = Table.RemoveColumns(Table.ExpandTableColumn(Fonction, "fnHTML", {"Column1", "Column3", "Column5"}),"Fusionné")
in
    ExpandTable

Et la fonction de transformation "fnHTML"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
(lien as text)=>
let
    Source = Web.BrowserContents(lien),
    Extract = Html.Table(Source, {{"Column1", ".sc-8251ce8c-5"}, {"Column3", ".sc-65c92dd-1"}, {"Column5", ".sc-65c92dd-0 SPAN *"}}, [RowSelector=".sc-6b8f8da3-0"])
in
    Extract

Il y a sûrement plus simple, mais c'est tout ce que j'ai pu faire...
Bonne soirée

[mapeh]

Re-,
Codes un peu allégés :
Code principal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
let
    Adr = "https://www.senscritique.com/liste/the_rolling_stone_magazine_s_500_greatest_songs_of_all_time/78610?page=",
    Lien = Table.FromList(List.TransformMany({[Adresse = Adr, Page = {1..17}]},
        each [Page], (s,c) => [Adresse = s[Adresse], Pages = Text.From(c), rec = Adresse & Pages][rec]), Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    Fonction = Table.AddColumn(Lien, "fnHTML", each fnHTML([Column1]))[[fnHTML]],
    ExpandTable = Table.ExpandTableColumn(Fonction, "fnHTML", {"Classement", "Titre", "Auteur"})
in
    ExpandTable

Fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
(lien as text)=>
let
    Source = Web.BrowserContents(lien),
    Extract = Html.Table(Source, {{"Column1", ".sc-8251ce8c-5"}, {"Column3", ".sc-65c92dd-1"}, {"Column5", ".sc-65c92dd-0 SPAN *"}}, [RowSelector=".sc-6b8f8da3-0"]),
    Rename = Table.RenameColumns(Extract,{{"Column1","Classement"},{"Column3","Titre"},{"Column5","Auteur"}})
in
    Rename

[Nain porte koi]

Merci beaucoup mapeh pour le temps passé, déjà la forme du résultat correspond à ce que j'attendais.

Je m'y prend sûrement très mal, je dois mettre chaque adresses de chaque page dans "lien" pour avoir une "fonction appelée" qui affiche une liste des données de la page

Qu'est-ce que j'ai raté ou mal fait ?

Merci

edit : serait-il possible de me fournir le fichier .xlsx ?

[mapeh]

Re-,
Voici le classeur exemple
Import HTML2.xlsx

[Nain porte koi]

Impeccable, merci beaucoup