Problème de fermeture automatique d'un fichier après inactivité
Salut à tous,
Je bloque sur un problème lors de la fermeture après inactivité d'un classeur
Le code fonction très bien mais lorsqu'un autre classeur est ouvert le popup reste ouvert et ne ferme pas le fichier.
X = objShell.Popup("Voulez vous continuer à utiliser le fichier?", 60, "Inactivité", vbYesNo)
En supprimant la partie popup , et en gardant uniquement
With ThisWorkbook
.Save
.Close
End With
Tous les autres classeurs se ferment également .
Est ce que vous auriez une piste vers la quelle je pourrais me diriger?
Merci beaucoup
Le code utilisé ci dessous:
Public Activity0 As Date
________________________________________
Sub début()
Activity0 = Now + TimeValue("00:05:00") ' Inactivité max de 5'
Application.OnTime Activity0, "Fermeture"
End Sub
____________________________________
Sub Fermeture()
' Popup d'alerte avant fermeture
Set objShell = CreateObject("WScript.Shell")
X = objShell.Popup("Voulez vous continuer à utiliser le fichier?", 60, "Inactivité", vbYesNo) 'le 60 est le nombre de secondes d'attente
Select Case X
'Si oui relance le temps
Case vbYes
Call fin
Call début
Exit Sub
'Si non ferme le classeur avec sauvegarde
Case vbNo
Call fin
'Si pas de réponse ferme le classeur
Case Else
Call fin
End Select
With ThisWorkbook
.Save
.Close
End With
End Sub
__________________________________
Sub fin()
On Error Resume Next
Application.OnTime Activity0, "Fermeture", , False
End Sub
Bonjour Loulou67500,
Cibler le fichier qui comprend la macro plutôt que ThisWorkbook.
Donc Workbook("Untel").save
Workbook("Untel").close
Bonne continuation.
Merci de te réponse mais cela ne fonctionne pas chez moi
J'ai essayé avec
Workbook("classeur1").close
et cela me revoit une erreur "Sub ou fonction non definie"
En essayant
Sub Fermeture()
Workbooks("classeur1.xlsm").Close
End Sub
il n'y a pas d'erreur mais ferme tout de même les autres classeurs
A nouveau,
Oui, j'ai oublié le s à la fin de Workbook.
Ta macro ferme l'application Excel et non un classeur en particulier.
Tu as bien mis l'ensemble de ta macro?
Place là avec le </> du menu du site
Salut X cellus,
On te preparant le fichier j'ai compris d'où venait l'erreur.
C'est dans BeforClose ou j'avais un Application.Quit
Donc normal que tout se ferme.... une erreur à la c..
Merci en tout cas de ton aide.