Modif code Sauvegarde afin de fermer Classeur Sauvegardé & laisser le 1ier ouvert

Sub Enregistrement()
Dim Chemin1$, Chemin2$, Client$, Fichier$, Numfact$, Jour$, Chantier$, FactN°$
Chemin1 = "F:\Factures\Factures\"
'Chemin2 = "E:\Backup\Factures\"
Jour = Format(Day(Now()), "00") & "_" & Format(Month(Now()), "00") & "_" & Year(Now)
Client = Range("G4")
Numfact = Range("H12")
Chantier = Range("H13")
FactN° = Range("H14")
Fichier = Jour & "_" & FactN° & "_" & Numfact & "_" & Chantier & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
'If Dir(Chemin2 & Client, 16) = "" Then MkDir Chemin2 & Client 'Backup
'ActiveWorkbook.SaveAs Chemin2 & Client & "\" & Fichier
End Sub

Cliquez pour agrandir...