Sub Copie()

[Quaisako]

Bonsoir à toutes et à tous,

Je souhaiterai:
Que les colonnes (V6 à ANxxx) de plusieurs classeurs identiques soient copiées dans une feuille d'un autre classeur.
Que le tri en ordre croissant se fasse sur la colonne W.

Pour ce, j'utilise ce code, mais ça ne fonctionne pas correctement.

Je ne vois pas où est le problème.

Sub Copie()

Worksheets("Feuil1").Activate
Columns("V:AN").Select
Selection.Sort Key1:=Range("W6"), Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Selection.Copy
Range("V6").Select

ChDir "C:\WINDOWS\Bureau\QuaisakoOmniSport"
Workbooks.Open Filename:="C:\WINDOWS\Bureau\QuaisakoOmniSport\Essai.xls"
'ActiveSheet.Paste
Range("V6").Select
Windows("Essai.XLS").Activate
Application.CutCopyMode = False
Range("V6").Select
Windows("Essai.XLS").Close

End Sub

Merci d'avance pour vos explications et peût-être plus.

Quaisako

 

[Mytå]

Salut Quaisako

Vite fait avant de partir

Sub copier()
Worksheets("Feuil1").Activate
fin = Range("an65535").End(xlUp).Row
Range("V6:AN" & fin).Select
Selection.Sort Key1:=Range("W6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Copy
Workbooks.Open Filename:="C:\WINDOWS\Bureau\QuaisakoOmniSport\Essai.xls"
Sheets("Feuil1").Select
Range("V6").Select
ActiveSheet.Paste
ActiveWorkbook.Close
Application.CutCopyMode = False
End Sub

A suivre Mytå

 

[Quaisako]

Bonsoir Mytå, bonsoir le Forum,

J'ai tout de même réussi à avancer un peu dans ce prg.
Merci pour ton aide.

@+ Quaisako