ActiveSheet.Paste

[Quaisako]

Bonjour à toutes et à tous,

L'appentissge VBA, c'est la très grosse prise de tête.

Un coup, le code ci-dessous fonctionne, un coup il ne veut rien savoir.

Message d'erreur "occasionnel".

Erreur d'exécution 1004
La méthode Paste de la classe Worksheet a échoué.

Merci d'avance Quaisako

Private Sub CommandButton2_Click()

Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select

Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Key2:=Range("C6") _
, Order2:=xlAscending, header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

Selection.Copy
Range("A6").Select

ChDir "C:\WINDOWS\Bureau\SMDOmniSport\"
Workbooks.Open Filename:="C:\WINDOWS\Bureau\SMDOmniSport\Récap.xls"

ActiveSheet.Paste

Windows("Récap.xls").Activate
Application.CutCopyMode = False

ActiveWorkbook.Close

End Sub

 

[Moa]

Oui cela m'est déjà arrivé plusieurs fois, avec des copier coller, il faut resélectionner une cellule, juste avant de faire le coller.

Surtout si il y a eu une instruction entre, j'ai l'impression que cela doit venir du presse-papier de windows.

J'ai fait des tests une bonne dizaine de fois, et si tu donnes un autre ordre, avant de faire ton coller, eh bien t'es obligé de resélectionner ta cellule d'arriver du coller.

Voilà, c'est une piste, mais je ne sais pas si c'est la bonne.


@ +

Moa