G
Gregh74
Guest
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
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