Corriger mon erreur sur Query

Bonjour à tous,

Je souhaiterai avoir un avis mon cerveau chauffe, malgrès que je sais que je le souci est pas loin, j'ai créer une requête simple qui fonctionner bien la voici :

Sub Import()

    'Code By Shenzar - Contact au service IN pour plus d'infos

    Dim ws As Worksheet
    Dim qt As QueryTable
    Dim url As String

    url = "https://......"

    Set ws = Worksheets("Roste")

    Set qt = ws.QueryTables( _
        Connection:="url;" & url, _
        Destination:=Range("A3"))

     With qt
        .RefreshOnFileOpen = True
        .Name = "Employ"
        .WebFormatting = xlWebFormattingRTF
        .WebSelectionType = xlSpecifiedTables
        .WebTables = "3"

        .RefreshPeriod = 0
        .Refresh
    End With
End Sub

sa fonctionner bien avant, j'ai modifier des choses et ne suis plus revenu dessus depuis le confinement, j'arrive pas a comprendre l'erreur que j'ai commise je me remets dans les dossiers depuis peu

Je pense que ça vient d'ici :

Set ws = Worksheets("Roste")

    Set qt = ws.QueryTables( _
        Connection:="url;" & url

Une piste ? de plus en retirant ("Roste") et en mettant .Add à la place et sur QueryTables.Add sa fonctionne mais c'était pas la programmation première

Merci pour vos éclaircissements

Bonjour,

Essaie :

Set qt = ws.QueryTables.Add(Connection:="url;" & url, Destination:=Range("A3"))

Sa marche super pour cette config

 Set ws = Worksheets.Add

 Set qt = ws.QueryTables.Add(Connection:="url;" & url, Destination:=Range("A3"))

Si je désire retirer .Add et que je veuille que l'import se fasse sur une feuille nommé du genre ws = woksheets("Import"), tu as une piste ? il me surligne la ligne connection:=

Merci à toi

Re,

Peux-tu préciser clairement ce que tu veux faire ?

Créer une requête, la mettre à jour, etc...

Joins un fichier à ta demande...

Cdlt.

Reedition

Réedition

Finalement sa vient de marcher, j'ai rien compris, surement la connection au site interne, tu m'as bien aidé.