Microsoft 365 Supprimer classeur excel

Private fso As Object
Sub DeleteFiles()
Dim vPath, FileNameToLocate$, k%
FileNameToLocate = "EXPORT.XLSX" ' <--- Set the name & extension of the file to locate
vPath = Array(Environ("USERPROFILE") & ("\Desktop\"), _
Environ("USERPROFILE") & "\Downloads\", _
Environ("USERPROFILE") & "\Documents\", _
Environ("USERPROFILE") & "\Temp\")
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
For k = LBound(vPath) To UBound(vPath)
RecurseDelete vPath(k), FileNameToLocate
Next
End Sub
Private Sub RecurseDelete(currentFolder As String, fileToDelete As String)
Dim thisFolder As Object, subFolder As Object
If fso.FileExists(currentFolder & fileToDelete) Then fso.DeleteFile currentFolder & fileToDelete, True
Set thisFolder = fso.GetFolder(currentFolder)
For Each subFolder In thisFolder.SubFolders
    RecurseDelete subFolder.Path & "\", fileToDelete
Next subFolder
End Sub

Sub DeleteFiles()
Dim fso As Object
Dim vPath, FileNameToLocate$, k%
FileNameToLocate = "EXPORT.XLSX" ' <--- Set the name & extension of the file to locate
vPath = Array(Environ("USERPROFILE") & ("\Desktop\"), _
Environ("USERPROFILE") & "\Downloads\", _
Environ("USERPROFILE") & "\Documents\", _
Environ("USERPROFILE") & "\Temp\")
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
For k = LBound(vPath) To UBound(vPath)
RecurseDelete vPath(k), FileNameToLocate
Next
End Sub
Private Sub RecurseDelete(currentFolder As String, fileToDelete As String)
Dim fso As Object
Dim thisFolder As Object, subFolder As Object
If fso.FileExists(currentFolder & fileToDelete) Then fso.DeleteFile currentFolder & fileToDelete, True
Set thisFolder = fso.GetFolder(currentFolder)
For Each subFolder In thisFolder.SubFolders
    RecurseDelete subFolder.Path & "\", fileToDelete
Next subFolder
End Sub

Sub Essai_sans_FSO()
Dim vPath, FileNameToLocate$, k%
FileNameToLocate = "EXPORT.XLSX" ' <--- Set the name & extension of the file to locate
vPath = Array(Environ("USERPROFILE") & ("\Desktop\"), _
Environ("USERPROFILE") & "\Downloads\", _
Environ("USERPROFILE") & "\Documents\", _
Environ("USERPROFILE") & "\Temp\")
On Error Resume Next
For k = LBound(vPath) To UBound(vPath)
    FilePath = vPath(k) & FileNameToLocate
    If Dir(FilePath) <> "" Then
        MsgBox "Supprimer ce fichier dans ce dossier?", vbInformation
            ' Kill FilePath '<=décommenter cette ligne pour supprimer le fichier
        Else
        If Dir(FilePath) = "" Then
            MsgBox "Ce fichier n'existe pas dans ce dossier.", vbInformation, FilePath
        End If
    End If
Next
End Sub