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

 

[vgendron]

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 ??

 

[Usine à gaz]

Bonjour le Forum,

Vous pourriez essayer le fichier ci-dessous,
mdp : zaza
Bonne journée,
lionel,

 

[PORCHER]

Merci de votre réponse.
En effet il fonctionne, mais les macros sont toujours présents.
Dommage
Ce que je voudrais c'est détruire complètement le classeur, qu'il soit inutilisable.

 

[Usine à gaz]

Bonjour,
Chez moi, il supprime carrément le fichier.
Bizarre que chez vous il ne le fasse pas,
lionel,

 

[PORCHER]

Avant il fonctionnait très bien, il supprimait le classeur.
Qu'es ce qui c'est passé… je n'en sait rien ?

 

[Usine à gaz]

Malheureusement, je ne suis pas dans votre ordi, mon niveau ne me permet pas d'imaginer les obstacles possibles et je ne peux pas vous aider.

Peut-être que l'un de nos ténors passera par là
lionel,

 

[PORCHER]

Je joint mon classeur modifier, en cas ou quelque chose m'aurais échapper.

 

[Usine à gaz]

Apparemment, vous avez fait bcp de modifications et mon niveau ne me permets pas de vérifier vos modifications, dsl

 

[PORCHER]

Merci beaucoup

 

[Usine à gaz]

Re-Bonjour,
Peut-être en le téléchargeant à nouveau et en testant s'il fonctionne comme il est :
- si oui, faire une modif à la fois pour voir à quel moment ça ne fonctionne plus ?
lionel,

 

[fanch55]

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 )

 

[Usine à gaz]

Bonjour fanch55,
Merci d'être là,
Tu parles de quel fichier :
Le mien du #post 3 ou celui de Porcher du post 8 ?
lionel,

 

[Usine à gaz]

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

 

[soan]

Bonsoir Lionel, le fil,

je te laisse ouvrir le fichier ci-joint.

soan