Copier plusieurs feuilles en dernière position vers autre classeur

[Gregh74]

Re bonjour à tous,

J'ai un classeur nommé "OEE.xlsm" qui dispose de plusieurs feuilles dont certaines avec ce format de nom: "IW**" (**=numéro de semaine, exemple IW31). Un autre classeur nommé "Archive.xlsx" doit recevoir les informations.

Question:
Je souhaiterais savoir comment faire pour couper (ou copier) automatiquement les feuilles du format "IW**" en dernière position (chronologiquement).

Pistes de réflexion:
...[Action utilisateur]...
For Each ws In Worksheets
If ws.Name Like "IW##" Then
ws.Copy after:=Workbooks("Archive.xlsx").Sheets(Sheets.Count)
End If
Next ws

Mais ça ne fonctionne pas... si je remplace 'Sheets(Sheets.Count)' par ' Sheets("Feuil3")' il n'y a pas de soucis... mais ce n'est pas ce dont j'ai besoin! 🙂

En espérant avoir été clair!

Merci d'avance pour vos réponses,
Greg

 

[Gregh74]

Re : Copier plusieurs feuilles en dernière position vers autre classeur

C'est tout bon j'ai trouvé:

...[Action utilisateur]...
For Each ws In Worksheets
If ws.Name Like "IW##" Then
nbsheet = Workbooks("Archive.xlsx").Sheets.Count
ws.Copy After:=Workbooks("Archive.xlsx").Sheets(nbsheet)
End If
Next ws