Importation d'un feuille

[Horizon]

Bonjour à tous,

Je débute avec les macro et je suis confronté à un problème. Je voudrais copier le contenu d'une feuille d'un classeur pour l'importer dans un autre, mais l'erreur 1004 apparais.
Voici le code :

Private Sub CommandButton1_Click()
    Dim QuelFichier
    MonFichier = Application.GetOpenFilename("Classeur Excel (*.xls),*.xls", 1, "Importation de Kdossier.fik")
    If MonFichier <> False Then
    Workbooks.Open Filename:=MonFichier
    Sheets("A").Select
    Cells.Select
    Selection.Copy
    Windows("Knoerp test.xls").Activate
    ActiveSheet.Paste
    End If
End Sub

 

[Pierrot93]

Re : Importation d'un feuille

Bonjour,

quelle est la ligne en erreur ??

bonne journée
@+

 

[Horizon]

Re : Importation d'un feuille

La ligne 7 : Cells.Select

 

[Pierrot93]

Re : Importation d'un feuille

Re,

remplace peut être :

Cells.Select
Selection.Copy

part :

ActiveSheet.UsedRange.Copy

bon après midi
@+

 

[Horizon]

Re : Importation d'un feuille

Sa fonctionne, merci beaucoup.
A+