fermeture automatique aprés un délai

**murka62** · 31/10/2008, 23h19

bonjour
je voudrais savoir si on peux aprés ouverture d'une feuille excel quelle se ferme automatiquement au bout de 1 mm env
qui se place dans thisworkbook
la feuille na pas de macros
merci

**JackOuYA** · 31/10/2008, 23h57

pas clair la question , bon je dirai oui on peu ... mais te dire comment dépends de ta question.

**murka62** · 01/11/2008, 09h49

bonjour
j'ai touver sa sur un autre cite mais sa ne marche pas
Dans thisWorkbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
  HeureFermeture = Now + TimeValue("00:01:00")
  Application.OnTime HeureFermeture, "FermeClasseur"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnTime EarliestTime:=HeureFermeture, Procedure:="fermeClasseur", Schedule:=False
End Sub

merci

**JackOuYA** · 01/11/2008, 10h16

bonjour,

il te manque le code fermeture du classeur du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub FermeClasseur()
  ThisWorkbook.Close False
End Sub

**murka62** · 01/11/2008, 11h08

je le plave avant ou aprés mon code
merci

**JackOuYA** · 01/11/2008, 11h16

place le code FermeClasseur dans un module public, pas dans ThisWorkBook.

rajoute aussi dans thisWorkbook, tout en haut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim HeureFermeture As Date

pour éviter un message d'erreur si tu ferme le classeur avant la fin de la temporisaiton.

**murka62** · 01/11/2008, 13h01

salut
sa marche mon classeur se ferme mais il une autre feuille qui reste et ses tous gris deux dans on dirais quil a une autre feuille derrier qui et cacher
je ne ses pas si je m'explique bien ses ses pas facile
merci