OVH Cloud OVH Cloud

Comment faire, pour fermer automatiquement.....???

3 réponses
Avatar
DC
Bonjour à tous,.........................Excel 2000 sous XP

Merci de me lire,..............................bonne journée,

Voilà, j'ai un classeur "anniversaires" qui s'ouvre automatiquement, quand
je mets l'ordinateur en service,
Est-il possible que ce classeur, étant ouvert, ne le soit que pour quelques
secondes, soit 30 secondes environ, le temps de lire et ensuite de se
refermer automatiquement, pour laisser la place au travail
sérieux,.....................Merci d'y penser...!!!

Cordialement......Merci d'avance.......au plaisir de vous lire.....DC

3 réponses

Avatar
LSteph
Bonjour DC,
''***dans module1
Sub fermoi()
ThisWorkbook.Close False
End Sub
''***dans thisworkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:30"), "fermoi"
End Sub
'***
'lSteph
"DC" a écrit dans le message de news:
43eb507b$0$6679$
Bonjour à tous,.........................Excel 2000 sous XP

Merci de me lire,..............................bonne journée,

Voilà, j'ai un classeur "anniversaires" qui s'ouvre automatiquement, quand
je mets l'ordinateur en service,
Est-il possible que ce classeur, étant ouvert, ne le soit que pour
quelques secondes, soit 30 secondes environ, le temps de lire et ensuite
de se refermer automatiquement, pour laisser la place au travail
sérieux,.....................Merci d'y penser...!!!

Cordialement......Merci d'avance.......au plaisir de vous lire.....DC



Avatar
Youky
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:30"), "ferme"
End Sub

A mettre en module
Sub ferme()
Application.Quit
End Sub

Salut DC
Youky
Avatar
DC
Bonsoir à tous,......................Bonsoir.......LSteph........Youky,

Merci pour vos réponses positives................bonne soirée,

C'est plus que parfait, çà fonctionne à merveille et correspond exactement à
ce que j'espérais,.....Vous ètes des bons au Forum...!!!...............un
grand Merci...!!!

Cordialement.....................Merci...!!!.......................DC

"Youky" a écrit dans le message de news:
43eb5a46$0$27954$
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:30"), "ferme"
End Sub

A mettre en module
Sub ferme()
Application.Quit
End Sub

Salut DC
Youky