Discussion :

[jeanyvesVB]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jeanyvesVB]

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"...

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jeanyvesVB]

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

[Pierre Fauconnier]

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?




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

[Pierre Fauconnier]

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




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