Discussion :

[strkk]

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 :

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
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

[halaster08]

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)

[Soticca]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[strkk]

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 ?

[Marc-L]

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, …