Ré-ouverture du fichier directement après sa fermeture

    Sauvegarde = MsgBox("Do you want to save a copy of analysis?", vbyesno) 'Copie de l'analyse
    If Sauvegarde = vbYes Then
        Call Save1 'macro de sauvegarde du fichier
    End If

Public Sub Save1() 'copie sauvegarde classeur

  Dim nom1 As String
   Dim nb As Integer
    
    chemin_fichier_Excel = Workbooks(ActiveWorkbook.name).FullName
    chemin_fichier_Excel = Workbooks(ActiveWorkbook.name).Path
    nb = nbfich(chemin_fichier_Excel, "xlsx")
    nb = nb + 1
    
    Application.DisplayAlerts = False 
    
    nom1 = "Analysis (" & nb & ") of " & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & nom1, FileFormat:=xlOpenXMLWorkbook
    rep = MsgBox("Your database is saved in the same record as the original file, under the name : " & nom1, vbYes + vbInformation, "Copy of analysis")
    
     Application.DisplayAlerts = True

End Sub

Sub Test_destruction()
   'détruire tout le code d'un classeur
   ThisWorkbook.Activate
   Call Detruire_tout_VBA("RD-TEST enreg_a_vider.xlsm")
End Sub

Sub Detruire_tout_VBA(ByVal ClasseurSansMacro As String)
   Dim VbComp, LesComposants
   'détruire tout le code du classeur nommé
   Set LesComposants = Workbooks(ClasseurSansMacro).VBProject.VBComponents
   For Each VbComp In LesComposants
      Select Case VbComp.Type
         Case 1, 2, 3
         LesComposants.Remove VbComp
         Case 100
         VbComp.CodeModule.DeleteLines 1, VbComp.CodeModule.CountOfLines
      End Select
   Next

End Sub