Enregistrement avec nom de la feuille

bonjour bonsoir

je fais de nouveau appel à vos grande connaissance, je souhaiterais une macro qui enregistre la feuille active du classeur dans un autre classeur qui sera crée en fonction du nom de la feuille active .

bien sur cette feuille changera de nom à chaque fois que j utiliserai le classeur 1 qui sert de décodeur de fichier texte.

merci

Salut,

Voici un code qui devrait faire l'affaire :

Sub xx()
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
End Sub

Amicalement.

merci c est parfait