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