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 :Merci pour votre aide..Erreur 53 Fichier introuvable
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
Partager