probleme fermeture auto fichier

[AKSooL]

BOnjour , voici le code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.OnTime Temps, "FermerClasseur", , False
On Error GoTo 0
Temps = Now + TimeValue("00:02:00")
Application.OnTime Temps, "FermerClasseur"
End Sub


Public Temps As Date
Sub FermerClasseur()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


le probleme , est qu il ferme tous les fichiers excel d ouvert , pas seulement l actif , qqun peut m aide

Merci

 

[Pierrot93]

Re : probleme fermeture auto fichier

Bonjour,

comprends pas trop ton code, déjà pourquoi l'avoir placé dans l'événement "selection change" d'une feuille. D'autre part à priori, tu commence par inhiber la procédure, puis tu la lances...

regarde l'article de notre ami Didier sur la méthode "OnTime", je pense que cela pourra t'aider :

La méthode OnTime : question de temps ? - Tutoriels & Astuces > VBA par l'exemple - Articles : myDearFriend! Excel Pages

bon après midi
@+

 

[AKSooL]

Re : probleme fermeture auto fichier

en gros j ai mis dans selection change le code, car je voulais que le fichier sauvegarde et ferme si inactivité sur le fichier

 

[Pierrot93]

Re : probleme fermeture auto fichier

Re

essaye de placer le code ci-dessous dans le module "thisworkbook" :

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
On Error Resume Next
Application.OnTime Temps, "FermerClasseur", , False
End Sub

@+

 

[AKSooL]

Re : probleme fermeture auto fichier

il est sensé faire quoi ce code , je ne saisis pas trop

 

[Pierrot93]

Re : probleme fermeture auto fichier

Re

désactiver la methhode OnTime en cours à la fermeture du classeur... tu devrais consulter le lien que je t'avais donné....

 

[AKSooL]

Re : probleme fermeture auto fichier

merci bcp 🙂