Microsoft 365 Erreur de Fichier

PORCHER

XLDnaute Occasionnel
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
VB:
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Et pour ceux qui ont un excel 64 bits :
VB:
#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 ...
 

Discussions similaires

Réponses
4
Affichages
491