Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier plusieurs feuilles en dernière position vers autre classeur

Gregh74

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

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…