Sub Enregistre_Prepa()
'
Chemin = "K:\MALINTRAT\MAINTENANCE\A-Préparations Travail - Consignation\Préparation de travail\Année\2022"
Num_Semaine = Sheets("Page de Garde").Range("H4").Value
Type_DJ = Sheets("Page de Garde").Range("M24").Value
Ouvrage_IDR = Sheets("Page de Garde").Range("D10").Value
Nature_Travaux = Sheets("Page de Garde").Range("D30").Value
Appareil_concerné = Sheets("Page de Garde").Range("M24").Value
Validation = Sheets("Page de Garde").Range("L58").Value
If Sheets("Page de Garde").Range("H4") <> "" And Sheets("Page de Garde").Range("D10") <> "" And Sheets("Page de Garde").Range("M24") <> "" And Sheets("Page de Garde").Range("D30") <> "" And Sheets("Page de Garde").Range("D35") <> "" Then
Dim AncienNom As String, NouveauNom As String
AncienNom = ActiveWorkbook.FullName
NouveauNom = Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux _
& " - " & Appareil_concerné & " - " & Validation & ".xlsm"
[COLOR=rgb(184, 49, 47)][U][B][I]ActiveWorkbook.SaveAs Filename:=NouveauNom[/I][/B][/U][/COLOR]
If NouveauNom <> AncienNom Then Kill AncienNom
'ActiveWorkbook.SaveAs Filename:= _
'Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux & " - " & Appareil_concerné & " - " & Validation & ".xlsm" _
', FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Workbooks.Open Filename:="K:\MALINTRAT\MAINTENANCE\A-Préparations Travail - Consignation\Préparations de travail pour chantiers 2022 indice 3.xlsx"
MsgBox ("Votre préparation a été enregistré" & vbLf & "Veuillez renseigner le fichier Préparation de travail pour chantier 2022 ")
Else
MsgBox ("Veuillez entrer la date, le départ,la nature des travaux, le nom du rédacteur ansi que de cocher le type de maintenance ")
End If
End Sub