P
Pat2A
Guest
Bonjour messieurs du forum.
J'utilise un code pour copier des cellules multiples qui fonctionne très bien tant que l'on reste dans le même classeur mais en l'adaptant pour copier sur un classeur différent ça bug.
J'ai le code d'erreur '1004': Erreur définie par l'application ou par l'objet.
L'erreur se porte sur la ligne de code d'erreur suivante:
ThisWorkbook.WorkSheets("C").Select
J'ouvre le classeur d'origine et je clique sur un bouton me permettant de copier différentes cellules d'un second classeur fermé et de
copier ces cellules au même endroit sur mon classeur d'origine.
CODE:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim wb as Workbook
Set wb = Workbooks.Open (Filename = "D:\Test\Classeur2.xls")
wb.WorkSheets("A").Select
wb.WorkSheets("A").Range ("A4:I17,A25:I30,A36:O40").Select
For Each cel In Selection
cel.Copy
ThisWorkbook.WorkSheets ("A").Select
Range (cel.Adress).Select
ActiveSheet.Paste
Next cel
wb.close
Application.ScreenUpdating = True
End Sub
Avez-vous une idée de la cause de ce problème?
Merci de votre attention.
J'utilise un code pour copier des cellules multiples qui fonctionne très bien tant que l'on reste dans le même classeur mais en l'adaptant pour copier sur un classeur différent ça bug.
J'ai le code d'erreur '1004': Erreur définie par l'application ou par l'objet.
L'erreur se porte sur la ligne de code d'erreur suivante:
ThisWorkbook.WorkSheets("C").Select
J'ouvre le classeur d'origine et je clique sur un bouton me permettant de copier différentes cellules d'un second classeur fermé et de
copier ces cellules au même endroit sur mon classeur d'origine.
CODE:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim wb as Workbook
Set wb = Workbooks.Open (Filename = "D:\Test\Classeur2.xls")
wb.WorkSheets("A").Select
wb.WorkSheets("A").Range ("A4:I17,A25:I30,A36:O40").Select
For Each cel In Selection
cel.Copy
ThisWorkbook.WorkSheets ("A").Select
Range (cel.Adress).Select
ActiveSheet.Paste
Next cel
wb.close
Application.ScreenUpdating = True
End Sub
Avez-vous une idée de la cause de ce problème?
Merci de votre attention.
