Erreur d'exécution 9

Bonjour,

J'ai un petit souci sur l'une de mes lignes de code

Sub EXTRACT()
Dim t
Dim nvl&, dl&
Dim chemin As String, fichier As String, Onglet As String
Application.ScreenUpdating = False
With ThisWorkbook.ActiveSheet
    .Range("A10:M50").ClearContents 
    chemin = .Range("D3").Value & "\" 
    Onglet = .Range("K2").Value
    fichier = Dir(chemin & "*.xls*")
    Do While fichier <> ""
        With Workbooks.Open(chemin & fichier)
            With .Sheets(Onglet)
                dl = Application.Max(.cells(.Rows.Count, 2).End(xlUp).Row, 8)
                t = .Range("A2:M" & dl).Value
            End With
            .Close True
        End With
        nvl = .cells(.Rows.Count, 1).End(xlUp).Row + 1
        .cells(nvl, 1).Resize(UBound(t), UBound(t, 2)).Value = t
        fichier = Dir 
    Loop
End With
Application.ScreenUpdating = True

End Sub

le problème apparait sur ce bout de code :

With .Sheets(Onglet)

Une idée ?

Bonjour

Essaies de remplacer (onglet) par le nom de ta feuille

With .Sheets(Onglet)

Bonjour Joco7915,

Je viens d'essayer comme proposé et cela crée la même erreur 9

Peux tu joindre un extrait de ton fichier avec la macro en question?

Ca y est j'ai compris et désolé du dérangement occasionné

En fait je réalisais un test sur fichier reel, mais le chemin testé avait 2 fichiers excel

Lorsque je test avec un chemin ayant un seul fichier c'est OK