Macro Excel pour copier feuilles dans un classeur en modifiant le nom des feuilles

[bendu14]

Bonjour, je suis novice en programmation VBA et je galere à trouver la solution à mon probleme.

Toutes les semaines, j'utilise un fichier excel qui se nomme de la maniere suivante 2017_sem_18.xlsx. chaque semaine, j'ai des onglets EDIT_LUNDI, EDIT_MARDI, ... etc et à la fin de chaque semaine je dois archiver mes onglets dans un fichier 2017.xlsx. Je voudrais faire une macro pour automatiser tout ça et si possible faire en sorte que chacun des onglets soit copié avec une trace du numéro de la semaine dans le nom. ça vous parait réalisable ?
merci par avance pour votre aide
Ben

 

[drul]

Salut, oui, c'est réalisable,
Le première étape: fait manuellement le travail pour une semaine avec l'enregistreur de macro et poste ici le code obtenu, ensuite on modifiera et nettoyera

 

[bendu14]

Merci pour ton aide
Voici le code que j'ai récupéré.

Sub CopieFeuilles()
'
' CopieFeuilles Macro
'

'
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
Sheets(Array("EDIT_LUNDI", "EDIT_MARDI", "EDIT_MERCREDI", "EDIT_JEUDI", _
"EDIT_VENDREDI")).Select
Sheets("EDIT_VENDREDI").Activate
Sheets(Array("EDIT_LUNDI", "EDIT_MARDI", "EDIT_MERCREDI", "EDIT_JEUDI", _
"EDIT_VENDREDI")).Copy Before:=Workbooks("2017.xlsx").Sheets(1)
End Sub