Bonjour,

Je souhaite copier une plage de données d'un classeur dans la première ligne d'un autre classeur, mais une erreur 1004 est retournée. Voici le code avec la ligne fautive soulignée:
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
Sub Test()
        
        Dim data As Workbook
        Dim dc As Workbook
        Dim der As Integer
        
        Set data = ActiveWorkbook
        Set dc = Workbooks.Open("Macintosh HD:Users:Chemin:Nom du fichier.xlsx")
        der = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
        
        dc.Sheets(3).Range("F5:J6").Copy Destination:=data.Sheets(1).Range("F5:J6")
        dc.Sheets(3).Range("A8:K8").Copy Destination:=data.Sheets(1).Range(Cells(der, 1), Cells(der, 11))
        
        dc.Close
        
End Sub
Ce qui est étonnant, c'est que la copie de la première plage ("F5:J6") ne pose pas de problème et que ce code fonctionne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Test2()
 
        Dim der As Integer
 
        der = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
 
        Range(Cells(der, 1), Cells(der, 11)).Select
 
End Sub
Pourriez-vous m'aider?