Bonjour,

je cherche à copier une feuille d'un classeur que j'ouvre en VBA dans le classeur actif. Mais j'obtiens l'erreur 1004 "la méthode copy de la classe worksheet à échouée".

Pouvez-vous m'aider ?

Voici mon code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
 
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim fichier_1, chemin As String
 
fichier_1 = "source.xlsx"
chemin = "C:\Documents and Settings\Desktop\"
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(chemin & fichier_1)
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
 
 
'Copier les feuilles
       wbExcel.Sheets("Feuil1").Copy before:=Workbooks("classeur en cours").Sheets(1) ' ligne qui pose problème
wbExcel.Close (False) 'fermeture du classeur sans sauvegarde
 
End Sub
Merci d'avance