Sub Enregistrer_Sous()
Dim NomDossier$, CheminDossier$, Nom$, NouveauNom$, Ladate$
NomDossier = Application.InputBox("Saisissez le mois en cours :", "Dossier 2018")
CheminDossier = "C:\Users\mab2172\Documents\Perso\Marc Ange\Bureau-ordre\Centres\CODIS\2018\" & NomDossier & "\"
Ladate = Format(Now, "dd_mm_yyyy - h""h ""mm") 'formatage de la date et heure
Nom = "Feuille de garde CODIS du" 'Nom de l'onglet à enregistrer"
NouveauNom = CheminDossier & Nom & " " & Ladate
ActiveSheet.Copy
ActiveSheet.SaveAs Filename:=NouveauNom & ".xls", FileFormat:=xlExcel8, CreateBackup:=False
ActiveWorkbook.Close True
End Sub