Microsoft 365 Erreur de Fichier

  • Initiateur de la discussion Initiateur de la discussion PORCHER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
Bonjour le fil


[Pour infos]
Les gens qui ont leur 1ère étoile en Excel ouvrent toujours les classeurs Excel sans activer les macros.
Partant de là, jamais de mauvaises surprises 😉
Ni de coercition liberticide (*) 😉
Freedoom for Excel
No macro, no cry
[/Pour infos]

(*).. Bah oui, pourquoi diffuser un classeur à tiers, si c'est pour qu'il ne puisse pas l'utilise ???
 
Et pour ceux qui ont un excel 64 bits :
VB:
#If VBA7 Then
 Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems
#End If

Mais tout ça ne change rien, la sub de destruction est toujours opérationnelle tout au moins sur mon poste .
Donc, je ne reproduis pas le problème décrit ...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
355
Réponses
2
Affichages
392
Réponses
10
Affichages
355
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
632
Réponses
9
Affichages
379
Retour