Supprimer fichier

Option Explicit
Const ForReading = 1, ForWriting = 2
Private Sub CommandButton1_Click()
 Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\Users\Daniel\Documents\Deletefile.vbs", ForWriting, True) 'adapter le chemin
 f.write ("On Error Resume Next") & vbCrLf
f.write ("Set fso = WScript.CreateObject(""Scripting.FileSystemObject"")") & vbCrLf
f.write ("Dim path") & vbCrLf
f.write ("path = WScript.ScriptFullName") & vbCrLf
f.write ("GetPath = Left(path, InStrRev(path, ""\""))") & vbCrLf
f.write ("Dim nomfichier: nomfichier = ""Essai.xls"" ") & vbCrLf
f.write ("Dim lieufichier: lieufichier = GetPath & nomfichier") & vbCrLf
f.write ("If fso.FileExists(lieufichier) Then") & vbCrLf
f.write ("  fso.deletefile lieufichier") & vbCrLf
f.write ("WScript.echo "" [OK] Le fichier à été supprimé!"" ") & vbCrLf
f.write ("Else") & vbCrLf
f.write ("WScript.echo "" [  ] Le fichier n'existe pas!"" ") & vbCrLf
f.write ("End If") & vbCrLf
f.write ("Set fso = Nothing") & vbCrLf
f.write ("WScript.Quit")
 End Sub

Option Explicit
Const ForReading = 1, ForWriting = 2
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Application.ThisWorkbook.Saved = True ' a activer
Application.DisplayAlerts = False
Dim oWsh
creer_vbs
Set oWsh = CreateObject("Shell.Application")
'oWsh.ShellExecute Workbooks(ActiveWorkbook.Name).Path & "\delete_file.vbs"' a activer
Set oWsh = Nothing
End Sub
Private Sub creer_vbs()
 Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(Workbooks(ActiveWorkbook.Name).Path & "\delete_file.vbs", ForWriting, True) 
 f.write ("On Error Resume Next") & vbCrLf
f.write ("Set fso = WScript.CreateObject(""Scripting.FileSystemObject"")") & vbCrLf
f.write ("Dim path") & vbCrLf
f.write ("path = WScript.ScriptFullName") & vbCrLf
f.write ("GetPath = Left(path, InStrRev(path, ""\""))") & vbCrLf
f.write ("Dim nomfichier: nomfichier = ""Essai.xls"" ") & vbCrLf 'adapter nom classeur
f.write ("Dim lieufichier: lieufichier = GetPath & nomfichier") & vbCrLf
f.write ("If fso.FileExists(lieufichier) Then") & vbCrLf
f.write ("  fso.deletefile lieufichier") & vbCrLf
f.write ("WScript.echo "" [OK] Le fichier à été supprimé!"" ") & vbCrLf
f.write ("Else") & vbCrLf
f.write ("WScript.echo "" [  ] Le fichier n'existe pas!"" ") & vbCrLf
f.write ("End If") & vbCrLf
f.write ("Set fso = Nothing") & vbCrLf
f.write ("WScript.Quit")
 End Sub
Private Sub Workbook_Open()
Dim msg As String
  Dim bln As Boolean
 
  'Teste l'éditeur VBA
  On Error GoTo ErrorHandler
  bln = Application.VBE.MainWindow.Visible
  On Error GoTo 0
 
  Exit Sub
 
 
ErrorHandler:          'Routine de gestion d'erreur.
'------------
'Évalue le numéro d'erreur.
Select Case Err.Description
  Case "L'accès par programme au projet Visual Basic n'est pas fiable" & vbLf
    msg = "Erreur " & Err.Number & " : " & Err.Description & vbCr & vbCr
    msg = msg & "Pour autoriser l'accès au projet Visual Basic : " & vbCr
    msg = msg & "- Menu « Outils » puis « Options... » ;" & vbCr
    msg = msg & "- Onglet « Sécurité » puis « Sécurité des macros... » ;" & vbCr
    msg = msg & "- Onglet  « Éditeurs approuvés » ;" & vbCr
    msg = msg & "- Cocher la case « Faire confiance au projet Visual Basic » ;" & vbCr
    msg = msg & "- Valider ce choix par Ok (2 fois)." & vbCr & vbCr
    msg = msg & "- Fermer Excel et réouvrir " & ThisWorkbook.Name
    'Il semble qu'une faille de sécurité autorise l'accès au projet lorsque le
    'débogueur est lancé ou lorsque ce Handler est exécuté alors que l'option
    '« Faire confiance au projet Visual Basic » n'est pas cochée !!!
    'Pour éviter toute ambiguité il est préférable de cocher cette option
    MsgBox msg, vbCritical
    Resume Next
  Case Else
    MsgBox Err.Description, vbCritical
    Stop
    End     'Resume Next
End Select
 
End Sub