Comment enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité ?
Dans certains cas, par exemple lorsqu'un fichier Excel est laissé sur un disque partagé, si le fichier est toujours ouvert par un utilisateur, les autres ne peuvent pas modifier le classeur. Alors, comment fermer automatiquement le fichier après une certaine période d'inactivité afin de faciliter le travail des autres ? Cet article vous aidera avec une méthode VBA.
Enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité avec du code VBA
Pour enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité, veuillez suivre les étapes ci-dessous.
1. Ouvrez le classeur que vous souhaitez enregistrer et fermer automatiquement après une certaine période d'inactivité. Ensuite, appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur ThisWorkbook dans le volet de droite pour ouvrir la fenêtre Code. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir capture d'écran :
Code VBA 1 : Enregistrer et fermer automatiquement un fichier Excel après une certaine période 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. Continuez en cliquant sur Insertion > Module, puis copiez et collez le code ci-dessous dans la fenêtre Module. Voir capture d'écran :
Code VBA 2 : Enregistrer et fermer automatiquement un fichier Excel après une certaine période 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 for Applications.
5. Cliquez sur Fichier > Enregistrer sous > Parcourir. Voir capture d'écran :
6. Dans la boîte de dialogue Enregistrer sous, sélectionnez un dossier pour enregistrer le fichier, nommez-le comme vous le souhaitez dans la zone Nom du fichier, choisissez Classeur Excel prenant en charge les macros dans la liste déroulante Spécifier le format d'enregistrement, puis cliquez sur le bouton Enregistrer. Voir capture d'écran :
Dès maintenant, à chaque fois que vous ouvrirez ce classeur, une boîte de dialogue Kutools for Excel apparaîtra. Veuillez entrer le temps après lequel vous souhaitez enregistrer et fermer le classeur, puis cliquez sur le bouton OK.
Le classeur sera automatiquement enregistré et fermé après cette période d'inactivité spécifiée. Voir capture d'écran :
Découvrez la magie d'Excel avec Kutools AI
- Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
- Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
- Codage VBA : Écrivez et implémentez du code VBA sans effort.
- Interprétation des formules : Comprenez facilement des formules complexes.
- Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels