Bonsoir le forum



Mon code bug sur cette ligne avec comme message d’erreur « objet requis »:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("C13:M61").Copy wk1.Sheets("TEST1").Cmde1.Caption.Range("C13")
Voici le code intégral pour appréciation.

Résultat attendu : j’ai 2 classeurs wk et wk1 (par exemple).

Je copie la plage c13 :m61 du classeur1 pour les coller dans la cellule C13 de la feuille choisie (Sheets("TEST1").Cmde1.Caption )) du classeur2.

Le nom de la feuille de destination et classeur1 correspondent au nom du bouton de commande (cmde1).

Merci de m’aider à parfaire mon code et que son fonctionnement soit accéléré.

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
Dim spath As String, sFile As String
 
Dim wk1 As Workbook
 
Set wk1 = ThisWorkbook
 
'Set sh = Sheets("TEST1").Cmde1.Caption
 
spath = "C:\Users\" & Environ("username") & "\Desktop\TEST\"
 
sFile = Sheets("TEST1").Cmde1.Caption & ".xlsm"
 
Application.DisplayAlerts = False
 
Workbooks.Open Filename:=spath & sFile
 
Range("C13:M61").Copy wk1.Sheets("TEST1").Cmde1.Caption.Range("C13")
 
ActiveWorkbook.Close Savechanges:=False
 
'wk1.Sheets("TEST1").Range ("C13")
 
Application.DisplayAlerts = True