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
 

vgendron

XLDnaute Barbatruc
Hello
il me semble qu'une macro VBA ne peut pas supprimer le fichier dans lequel elle se trouve...L'autodestruction n'est pas possible...
et c'est radical quand meme.. 3 mauvais mot de passe. et pouff.. plus rien... non ??
 

fanch55

XLDnaute Barbatruc
Bonjour,
le dernier classeur n 'est pas finalisé/testé ...
cependant, si on exécute la sub DESTRUCTION_FICHIER, le classeur est bien détruit ..

Je ne vois pas l'utilité de parcourir les recents_files ??

( Excel 2016 64 bits )
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Chez moi, quand, j'ouvre le fichier du #post 8, ça beug, voir photo :

Sans titre.png
 

Discussions similaires

Réponses
4
Affichages
491

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo