Object defined error copier/coller

Bonjour,

j'essaie d'ouvrir un classeur via une macro pour copier son contenu et le coller dans mon classeur d'origine. Sans succès.

Le but est :

- d'ouvrir le fichier "test"

- lancer la macro

- selectionner le fichier "Book1"

- copier les cellules

- les copier dans l'autre classeur

Mon fichier s'ouvre bien mais ne copie pas les éléments de l'autre classeur :"application-defined or object-defined error"

Aurais-je oublier un paramètre?

Cdt

bonjour,

une proposition

Sub test()
    Set twb = ThisWorkbook
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = flase
        .Title = "Please select one excel file to cop y from"
        .Filters.Clear
        .Filters.Add "Excel files", "*.XLS*"
        If .Show = True Then
            fname = .SelectedItems(1)
        Else
            MsgBox "no files selected"
            Exit Sub
        End If
    End With
    Set wb = Workbooks.Open(fname)
    wb.Sheets("Sheet1").Range("A1:B10").Copy twb.Sheets("sheet1").Range("A1")
    wb.Close
End Sub

Parfait merci