Discussion :

[le_sayan]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim Fichier_1 As String, Chemin As String
Dim wbExcel As Workbook                          'Classeur Excel
 
Application.ScreenUpdating = False
Fichier_1 = "source.xlsx"
Chemin = "C:\Documents and Settings\Desktop\"
If Dir(Chemin & Fichier_1) <> "" Then
    Set wbExcel = Workbooks.Open(Chemin & Fichier_1)
    wbExcel.Sheets("Feuil1").Copy Before:=ThisWorkbook.Sheets(1)    ' ligne qui pose problème
    wbExcel.Close False                          'fermeture du classeur sans sauvegarde
    Set wbExcel = Nothing
End If
End Sub

[Daniel.C]

Bon, ce coup-ci, c'est gravé dans le marbre :

http://office.microsoft.com/en-us/ex...001217035.aspx

NOTE You cannot move or copy worksheets between workbooks that are open in separate instances of Excel.

Ça veut dire que tu ne peux pas.