Macro enregistrer feuille active sous un nom d'une cellule

Bonjour,

voila ma macro que j'aimerai bien qui registre la feuille active pas le classeur,merci cordialement.

Sub Enregistrer()

'

' enregistrer Macro

'

'Sub enregistrer()

Dim LePath As String, LeNom As String

LePath = ActiveWorkbook.Path & "\"

LeNom = [B12] & Format([E8], "ddmmyyyyhhmm") & ".xls"

ThisWorkbook.SaveAs LePath & LeNom

End Sub

Bonjour,

Pour renommer la feuille active

ActiveSheet.Name = Range("b12") & Format(Range("e8"), "ddmmyyyyhhmm")

Bonne journée

Claude

Merci MR dubois pour votre réponse rapide ,j'aimerai bien que vous me modifier ma macro pour enregistrer la feuille active pas le classeur entier merci

re,

Sub enregistrer()
Dim LePath As String, LeNom As String
    LePath = ActiveWorkbook.Path & "\"
    ActiveSheet.Copy
    LeNom = [B12] & Format([E8], "ddmmyyyyhhmm") & ".xls"
    ActiveWorkbook.SaveAs LePath & LeNom
End Sub

Merci beaucoup Claude, je veux profiter de votre gentillesse et je vous demande une autre chose,j'ai créer cette macro mais elle converti pas la feuille en pdf ,vous pouver me la réparer de faite qui converti la feuille active en pdf et elle l'envoie par email ,s'il vous plait merci cordialement.

Sub souspdf()

'

' souspdf Macro

'

'

ChDir "C:\Users\brahim\Documents\SUD HABITAT LANGUEDOC\sud est travaux\DEVIS"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\brahim\Documents\SUD HABITAT LANGUEDOC\sud est travaux\DEVIS\model DEVIS FACTURE 1SUD EST TRAVAUX2.pdf" _

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Application.Dialogs(xlDialogSendMail).Show

End Sub