Option Explicit
Sub CreerNouveauClasseur()
'
' pas de rafraîchissement de l'écran durant l'exécution
Application.ScreenUpdating = False
' Copie de la feuille dans un nouveau classeur
ThisWorkbook.Sheets('Nom de la feuille').Copy
With ActiveWorkbook
With .ActiveSheet
' puis, dans ce nouveau classeur, on fait un copier /
' coller spécial valeurs (les formats y sont déjà)
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
End With
' Sauvegarde du nouveau classeur dans le répertoire
' de ce classeur avec le nom voulu : modifier le format
' pour obtenir l'affichage souhaité pour la date.
Application.DisplayAlerts = False
.SaveAs ThisWorkbook.Path & '\\' & 'Classeur du ' & _
Format(.ActiveSheet.Range('A1'), 'dd-mm-yyyy') _
& '.xls'
Application.DisplayAlerts = True
End With
' enfin, on sélectionne A1 dans ce nouveau classeur...
Range('A1').Select
' et on autorise le rafraîssement de l'écran
Application.ScreenUpdating = True
End Sub