fermeture de classeur avec tempo puis reouverture

[nounours30]

bonjour tout le monde

pour permettre un partage plus souple d'un classeur
je souhaite le fermer automatiquement (avec enregistrement des modifs) apres un temps d'inactivité paramétrable.

puis en ne laissant a l'ecran que le formulaire de 'menu general de la base' l'ouvrir dès qu'on appelle une fonction (saisie, recherche, mise a jour...

les formulaires correspondants sont actives par des boutons

j'ai trouve des pistes a creuser pour la fermeture automatique mais je seche completement sur la detection 'classeur fermé ou classeur deja ouvert' pour declencher une ouverture conditionnelle

l'ouverture automatique du fichier en elle meme doit bien figurer sur un fil du forum...

un peu d'aide pour le reste serait apprécié

 

[pierrejean]

bonjour nounours

pour savoir si un classeur est ouvert

Sub fichier()
For n = 1 To Workbooks.Count
If wokbooks(n).Name = 'monfichier.xls' Then
MsgBox ('le fichier ' & wokbooks(n).Name & ' est ouvert')
Else
MsgBox ('le fichier monfichier.xls est fermé')
End If
Next n
End Sub