Fermer apres avoir enregistrer

Bonjour,voila ma macro elle marche bien mais j'aimerai bien qui ferme la feuille après avoir l'enregistrer ,merci cordialement

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

Bonjour

Essayes

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

Rebonjour,merci MR Banzai64 pour votre réponse, j'ai essayer mais ça marche pas la feuille enregistré s'ouvre toujours

Bonjour

ait haddou a écrit :

Bonjour,voila ma macro elle marche bien mais j'aimerai bien qui ferme la feuille après avoir l'enregistrer ,merci cordialement

Le fichier créé est bien fermé ?

ait haddou a écrit :

j'ai essayer mais ça marche pas la feuille enregistré s'ouvre toujours

Heureusement que le fichier s'ouvre

Où est le problème ?

Rebonjour,enfaite quand je registre une feuille ça s'ouvre directement .et je veux enregistrer sans ouvrir de suite merci cordialement

Bonjour

Quand tu fais Copy c'est normal que la feuille soit visible

Pour éviter de voir la feuille copiée rajoutes

Sub enregistrer()
Dim LePath As String, LeNom As String

  Application.ScreenUpdating = False
  LePath = ActiveWorkbook.Path & "\"
  ActiveSheet.Copy
  LeNom = [B12] & Format([E8], "ddmmyyyyhhmm") & ".xls"
  ActiveWorkbook.SaveAs LePath & LeNom
  ActiveWorkbook.Close
End Sub

merci c'est règler