Fichier introuvable excel

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 :

Citation:

---

Erreur 53 Fichier introuvable

---

Merci pour votre aide..
Ci-dessous macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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

---

Citation:

---

Envoyé par jeanyvesVB

---

Bonjour,

Comme dans toute destruction, il faut commencer par la fin.
Nb : Je n'ai pas testé votre code, donc pas certain que cela fonctionne.

Code:

---

1 2	For Ndx = Application.RecentFiles.Count To 1 Step -1

---

Nb : Quand vous postez du code, sélectionnez-le et cliquez sur la balise # dans le menu.

Bonjour,
J'ai testé, n'a pas fonctionner chez moi
Je vous joint mon classeur, se sera plus claire.
Merci


NDLR: Le fichier a été supprimé car la macro à l'ouverture flingue potentiellement les derniers fichiers utilisés!! Après cela, il y a des gens qui râlent parce que la politique de nos forums est "pas de fichier joint"...

Citation:

---

Envoyé par jeanyvesVB

---

Attention !!! Ne pas ouvrir le fichier joint, vous risquez de perdre des fichiers.

Chez moi, je récupère bien la liste des fichiers récents.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub DESTRUCTION_FICHIER()   Dim FName As String Dim Ndx As Integer   With ThisWorkbook Debug.Print Application.RecentFiles.Count For Ndx = Application.RecentFiles.Count To 1 Step -1 Debug.Print Application.RecentFiles(Ndx).Path Next Ndx End With   End Sub

---

Salut.

Lancer une procédure d'autodestruction à l'ouverture du fichier est pour moi "rigolo", même si je comprends bien la volonté. Bon, de ma lecture, il n'y avait pas trop de danger (je n'ai pas vérifié que le test dans la boucle des RecentFiles était correcte, ceci dit) donc c'est le genre de code qu'on n'aime pas trop voir se lancer sans pouvoir le contrôler.

Ton code essaie de supprimer un fichier ouvert. Forcément, ça va pas le faire. Après, tu veux fermer le fichier alors que, si ton code avait fonctionner, il aurait été supprimé => impossible de fermer un fichier qui n'existerait plus.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub DESTRUCTION_FICHIER() Dim FName As String Dim Ndx As Integer With ThisWorkbook .Save 'For Ndx = 1 To Application.RecentFiles.Count For Ndx = Application.RecentFiles.Count To 1 Step -1 If Application.RecentFiles(Ndx).Path = .FullName Then Application.RecentFiles(Ndx).Delete Exit For End If Next Ndx .ChangeFileAccess Mode:=xlReadOnly Kill .FullName ' ===>> Difficile de flinguer un fichier ouvert .Close SaveChanges:=False ' ===> Marrant de vouloir fermer un fichier qui, si ta ligne précédent avait fonctionné, n'existerait plus... End With End Sub

---

Si tu cherches à supprimer le fichier parce que la personne qui l'ouvre ne peut pas l'utiliser (je suppose que tu as créé LE super fichier qui va te rendre riche ;)... C'est un clin d’œil), tu vas juste la piéger la première fois. Après, elle reprend le fichier d'où elle l'a trouvé et elle l'ouvre en désactivant les macros. La protection n'aura pas duré longtemps.

A moins de rentrer encore dans des discussions interminables, il me semble judicieux de dire que la protection totale d'un fichier Excel est illusoire...

Bonjour,
Ce que tu viens de me dire est FAUX, car la version 2019 de Office 365 ce classeur ou Projet fonctionnait très bien, le classeur
disparait définitivement et ne ce trouve pas dans la poubelle donc il a disparu et nul personne ne peut le récupérer.

depuis la version 2020 avec mise à jour et verser l'abonnement de office 365 je n'ai que des problèmes !

fait' il que j'achète la version office 2016 ou 2019 illimité pour résoudre certains nombres de problèmes…
Je lance le débat.
Cordialement

Peux-tu citer précisément ce qui est faux dans ce que j'ai dit?

Sur ma version 365, on ne sait pas supprimer un fichier ouvert (ce qui me paraît logique, en fait, et je parie que ça fonctionne ainsi sur les autres versions, car c'est un "problème" de verrou sur fichier). Le fait que ton code ne fonctionne pas semblerait me donner raison, non?

Pièce jointe 595192


Quant aux nombreux problèmes que tu rencontres avec la 365, il serait utile d'ouvrir une discussion par problème rencontré pour que l'on puisse y voir plus clair. Perso, ce n'est que du bonheur, la 365. Au passage, je ne vois pas ce qu'est la version 2020 ^^

Par contre, l'erreur 53 pourrait venir du fait que ton classeur n'est pas encore enregistré, auquel cas il est évidemment difficile de le supprimer du disque, puisqu'il n'y existe pas encore...

Pièce jointe 595193


Quoi qu'il en soit, je ne vois pas trop comment un fichier pourrait se supprimer lui-même.