Bonsoir le forum
Mon code bug sur cette ligne avec comme message d’erreur « objet requis »:
Voici le code intégral pour appréciation.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Range("C13:M61").Copy wk1.Sheets("TEST1").Cmde1.Caption.Range("C13")
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
Partager