Comment supprimer le classeur actif (fichier actuel) dans Excel?
Disons que vous avez téléchargé un classeur à partir d'un site Web et que le classeur s'est ouvert automatiquement. Toutefois, le classeur n'est peut-être pas le bon ou le classeur ne contient pas les informations requises et vous souhaitez le supprimer. Parfois, vous oubliez probablement le répertoire par défaut dans lequel les fichiers téléchargés sont automatiquement enregistrés. Ne vous inquiétez pas, nous pouvons supprimer le classeur d'ouverture / actif sans le fermer directement dans Excel.
Supprimer le classeur actif (fichier actuel) avec VBA
Un clic pour ouvrir le dossier qui contient le classeur actif avec ce classeur sélectionné
Pour ouvrir rapidement le dossier/répertoire contenant le classeur actuel et sélectionner le classeur actuel dans le dossier d'ouverture, veuillez essayer Kutools for Excel's Dossier contenant ouvert utilitaire.
Supprimer le classeur actif (fichier actuel) avec VBA
Cette méthode introduira un VBA pour supprimer le classeur d'ouverture / actif sans le fermer dans Excel. Veuillez procéder comme suit:
1. appuie sur le autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez insérer > Module, copiez le code VBA suivant et collez-le dans la fenêtre d'ouverture du module.
VBA: supprimer le classeur actif sans le fermer dans Excel
Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub3. appuie sur le F5 clé ou Courir bouton pour exécuter ce VBA.
Notes:
(1) Ce VBA peut supprimer le classeur actif, mais ne peut pas fermer la fenêtre Excel. Si aucun classeur ne s'ouvre après la suppression du classeur actif, fermez la fenêtre Excel manuellement.
(2) Si le classeur actif n'a jamais été enregistré auparavant, ce VBA ne peut pas le supprimer. Toutefois, vous pouvez supprimer ce classeur non enregistré directement en le fermant.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
