Modification de macro pour avoir l'information depuis une cellule

Bonjour,

J'ai une macro que j'arrive pas à modifier.

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Web.Page(Web.Contents(""https://www.leagueofgraphs.com/champions/builds""))," & Chr(13) & "" & Chr(10) & "    Data0 = Source{0}[Data]," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(Data0,{{""#"", type text}, {""Name"", type text}, {""Popularity"", type text}, {""Winrate"", type text}, {""BanRate"", type text}, {""KDA"", type text}, {""Pentas/match"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " " & _
        "   #""Type modifié"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Table 0"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Table 0]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_0"
        .Refresh BackgroundQuery:=False

    End With

     ActiveWorkbook.Queries.Add Name:="Table 0 (2)", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Web.Page(Web.Contents(""https://www.leagueofgraphs.com/champions/probuilds""))," & Chr(13) & "" & Chr(10) & "    Data0 = Source{0}[Data]," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(Data0,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type text}, {""Column6"", type text}, {""Column7"", type text}," & _
        " {""Column8"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Table 0 (2)"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Table 0 (2)]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_0__2"
        .Refresh BackgroundQuery:=False
    End With
End Sub

Je souhaiterai que les lien https://www.leagueofgraphs.com/champions/builds et https://www.leagueofgraphs.com/champions/probuilds soit trouver dans l'onglet Feuil1 en A1 et A2 au lieu d'etre dans le sript de la marco.

bonjour,

voici comment il faut faire pour le premier query, à adapter pour le second.

lien1 = Chr(34) & Sheets("feuil1").Range("A2") & Chr(34)

'
    ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Web.Page(Web.Contents(" & lien1 & "))," & Chr(13) & "" & Chr(10) & "    Data0 = Source{0}[Data]," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(Data0,{{""#"", type text}, {""Name"", type text}, {""Popularity"", type text}, {""Winrate"", type text}, {""BanRate"", type text}, {""KDA"", type text}, {""Pentas/match"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " " & _
        "   #""Type modifié"""

Merci mais Je n'arrive pas à le faire fonctionne.

Est ce qu'il est possible de l'avoir dans un fichier ou le code entier, j'ai du mal le placer.

Merci

rebonjour,

voici le fichier avec la macro adaptée.

C'est super merci.

le petit plus que je vais devoir chercher maintement, c'est de mettre le mon des onglet directement.

Je souhaiterais que l'importation de la page https://www.leagueofgraphs.com/champions/builds que l'onglet s'appelle "builds"

et que https://www.leagueofgraphs.com/champions/probuilds l'onglet s'appelle probuilds

est ce que c'est simple à faire?

bonjour,

est ce que c'est simple à faire?

c'est ma dernière contribution sur ce sujet.

Merci