Microsoft 365 Erreur de Fichier

[PORCHER]

Bonjour à tous,
J'ai un souci avec une macro, Apres trois essai Mot de passe nul j'appel la procédure de destruction de mon classeur
avec Call DESTRUCTION_FICHIER et j'ai une fenêtre qui s'ouvre et le message est : Erreur 53 Fichier introuvable
Merci pour votre aide..
Ci-dessous macro

Sub DESTRUCTION_FICHIER()
Dim FName As String
Dim Ndx As Integer
With ThisWorkbook
    .Save
    For Ndx = 1 To Application.RecentFiles.Count
        If Application.RecentFiles(Ndx).Path = .FullName Then
            Application.RecentFiles(Ndx).Delete
            Exit For
        End If
    Next Ndx
    .ChangeFileAccess Mode:=xlReadOnly
    Kill .FullName
    .Close SaveChanges:=False
End With
End Sub

 

[Staple1600]

Bonjour le fil


[Pour infos]
Les gens qui ont leur 1ère étoile en Excel ouvrent toujours les classeurs Excel sans activer les macros.
Partant de là, jamais de mauvaises surprises 😉
Ni de coercition liberticide (*) 😉
Freedoom for Excel
No macro, no cry
[/Pour infos]

(*).. Bah oui, pourquoi diffuser un classeur à tiers, si c'est pour qu'il ne puisse pas l'utilise ???

 

[fanch55]

Et pour ceux qui ont un excel 64 bits :

#If VBA7 Then
 Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems
#End If

Mais tout ça ne change rien, la sub de destruction est toujours opérationnelle tout au moins sur mon poste .
Donc, je ne reproduis pas le problème décrit ...