Comment sauvegarder et fermer automatiquement un fichier Excel après une période d’inactivité ?
Dans certains cas — par exemple lorsqu’un fichier Excel est laissé sur un disque partagé et reste ouvert par un utilisateur — les autres collaborateurs ne peuvent pas modifier le classeur. Comment fermer automatiquement ce fichier après une période d’inactivité pour faciliter le travail collectif ? Cet article vous propose une solution simple et efficace à l’aide de code VBA.
Sauvegarder et fermer automatique d’un fichier Excel après une certaine durée d’inactivité avec du code VBA
Pour sauvegarder et fermer automatiquement un fichier Excel après une période d’inactivité, suivez ces étapes.
1. Ouvrez le classeur que vous souhaitez enregistrer et fermer automatiquement après une certaine période d’inactivité, puis appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisWorkbook dans le volet droit pour ouvrir la fenêtre de code. Copiez ensuite le code VBA ci-dessous et collez-le dans cette fenêtre. Voir capture d’écran :
Code VBA 1 : Sauvegarder et fermer automatique d’un fichier Excel après une certaine durée d’inactivité
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub
3. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code ci-dessous dans la fenêtre du module. Voir la capture d’écran :
Code VBA 2 : Sauvegarder et fermer automatique d’un fichier Excel après une certaine durée d’inactivité
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub4. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.
5. Cliquez sur Fichier > Enregistrer sous > Parcourir. Voir la capture d’écran :
6. Dans la boîte de dialogue Enregistrer sous, sélectionnez un dossier pour enregistrer le fichier, attribuez-lui le nom souhaité dans la zone Nom de fichier, choisissez Classeur Excel prenant en charge les macros dans la liste déroulante Enregistrer en tant que type, puis cliquez sur le bouton Enregistrer. Voir la capture d’écran :
Désormais, à chaque ouverture de ce classeur, une boîte de dialogue Kutools pour Excel s’affichera. Indiquez la durée d’inactivité au-delà de laquelle vous souhaitez que le classeur soit sauvegardé et fermé, puis cliquez sur le bouton OK.
Le classeur sera alors enregistré et fermé automatiquement après la durée d’inactivité spécifiée. Voir capture d’écran :
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels