Error 1004 - Paste Method of Worsheet class failed
Bonjour à tous,
Ci_dessous, un problème qui me laisse sec et pour lequel, au delà d'obtenir une solution fonctionnelle, j'aimerais comprendre la cause sur le fond
Le code ci-dessous tourne sans pb à plusieurs itérations (il est utilisé dans une boucle) mais quelque fois il plante sur la ligne en rouge avec l'erreur "Past Method of Worsheet class failed"
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Sheets("Data").Select
Rows("1:1").Select
Selection.AutoFilter
‘ la valeur de la variable “Last_Line” a été déterminée au préalable
ActiveSheet.Range("$A$1:$AP$" & Last_Line).AutoFilter Field:=30, Criteria1:="<>"
ActiveCell.SpecialCells(xlLastCell).Select
Range("AP" & Last_Line).Select
Range(Selection, Cells(1)).Select
Selection.Copy
Sheets("Resultats").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Data").Select |
Je n'ai pas réussi à identifier des situations communes aux différents cas où ce code plante, bref, je suis sec!
Quelqu'un peut il m'aider à comprendre ce pb?
Merci
