Microsoft 365 Macro pour copier un Tableau Excel et enregistré une copie en enlèvement une zonne

[Tacos_59]

Bonjour, Il me faudrait une macro qui copier tout mon classeur, qui supprime une zone saisie, et qui me demande le nom pour le nouveau classeur

Sub dupliquer()
 
    Dim mois As String
    mois = InputBox("Le mois souhaité")
    ActiveSheet.Range("_zoneSaisie").ClearContents
    ActiveSheet.Range("_mois").Value = mois
End Sub

Sub dupliquer()
ActiveWorkbook.Sheets.Copy.Name= _mois "2015"

End Sub

 

[chagatte]

Bonjour,

Qu'est-ce qui coince exactement dans votre macro ? Pour l'instant, elle copie colle l'onglet "Données à saisir" et le renomme avec le nom du mois renseigné par l'utilisateur. Elle vient ensuite renseigner la valeur du mois dans la cellule _mois de la nouvelle feuille. Je ne vois pas le problème ?

 

[Tacos_59]

je souhaite quelle copie tout les onglets et quelle se sauvegarde dans un nouveau fichier excel