Alternative à Copy/Paste

Bonjour à tous,

Mes connaissances sur excel étant limitées, je cherche une alternative à la méthode copy/paste qui mise en application dans mon code me renvoie selon la feuille du classeur sur laquelle le code est appliqué un message d'erreur "la méthode pastespecial de la classe worksheet a échoué".

Merci d'avance pour votre aide

L'extrait de mon code où l'erreur se déclare

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

With ActiveSheet .Range("$A$2:$X$2266").AutoFilter Field:=2, Criteria1:="NOUVEAU" .Range("G2:T16500").SpecialCells(xlCellTypeVisible).Copy Sheets.Add After:=ActiveSheet ActiveSheet.Name = "NVX_BDD" With Worksheets("NVX_BDD") .Paste End With End With

---

Bonjour,

A lire: https://msdn.microsoft.com/fr-fr/vba...y-method-excel
https://msdn.microsoft.com/fr-fr/vba...l-method-excel

(en résumé remplace ton .paste par .pastespecial)

Bonjour,

Le problème est que lorsque l'on créé une feuille via "Sheet.Add", elle devient de facto la feuille active. Ce qui pose problème au vue de vos deux boucles imbriquées.

Le code ci-dessous fonctionne mieux (en imaginant des valeurs dans la plage A1:B3)

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() With ActiveSheet .Range("A1:B3").SpecialCells(xlCellTypeVisible).Copy End With   Sheets.Add After:=ActiveSheet ActiveSheet.Name = "test" ActiveSheet.Paste End Sub

---

Remplacer mon paste par pastespecial n'aboutit pas au copier/coller que j'attends.

J'ai essayé le code proposé par soticca mais cela ne résout pas le problème que je rencontre.

Ce code doit être applicable à 2 feuilles différentes de mon classeur. Je me suis rendue compte qu'en supprimant une des deux feuilles de mon classeur, le code fonctionne mais lorsque les deux feuilles sont sur le même classeur, le code fonctionne seulement sur la dernière feuille. C'est à dire que si j'intervertis l'ordre des deux feuilles dans le classeur, seulement la dernière feuille - celle la plus à droite, fonctionnera, quelque soit la feuille 1 ou 2.

Comment résoudre ce problème et pouvoir appliquer mon copier coller à chacune de mes feuilles ?

Bonjour,

ne pas travailler avec la feuille active mais avec son nom !

Et si les feuilles se trouvent dans le classeur contenant le code alors le mieux est leur  CodeName  …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …