msg box pour les vacances

Version imprimable

08/08/2007, 14h08
eillon

msg box pour les vacances
Code:

1 2 3 Case 13 To 15: = If MsgBox("Bien mangé ? Envie d'une sieste ?", vbQuestion + vbYesNo + vbApplicationModal + 0, "fermer") = vbYes Then Workbooks.Close end if
Je n'arrive pas a jumeler ces deux formules.

Si entre 13 et 15h le fichier est ouvert, demander "Bien mangé ? Envie d'une sieste ?" si oui fermer le classeur, si non continuer le travail.

Je part en vacances vendredi et je veux laisser une surprise à mes collègues qui feront mon boulot...

Code:

1
2
3
4
5
Case 13 To 15:
    If MsgBox("Bien mangé ? Envie d'une sieste ?", vbQuestion + vbYesNo + vbApplicationModal + 0, "fermer") = vbYes Then
        ThisWorkbook.Save
        ThisWorkbook.Close
    End If

devrait normalement passer

cependant ton case 13 to 15 il est fait sur quoi comme select ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
   msg = "Vous entrez dans une zone de travail, fini de jouer."
Select Case Hour(Now)
     Case 8 To 10:  msg = "Bonjour, comment va aujourd'hui ?"
     Case 10 To 11:  msg = "Tu peux aller boire le café"
     Case 12 To 13:  msg = "Matthieu, va manger..."
     Case 18 To 21: msg = "Putain t'es encore au boulot ?"
     Case 22 To 24: msg = "Maintenant vas te coucher."
 End Select
 
 MsgBox msg
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Workbook_Open()
    msg = "Vous entrez dans une zone de travail, fini de jouer."
    'test = Hour(Now)
    test = 14
    Select Case test
        Case 8 To 10:  msg = "Bonjour, comment va aujourd'hui ?"
        Case 10 To 11:  msg = "Tu peux aller boire le café"
        Case 12 To 13:  msg = "Matthieu, va manger..."
        Case 13 To 15:
            If MsgBox("Bien mangé ? Envie d'une sieste ?", vbQuestion + vbYesNo + vbApplicationModal + 0, "fermer") = vbYes Then
                ThisWorkbook.Save
                ThisWorkbook.Close
            Else
                MsgBox "C'est bien tu es un bon travailleur !"
                GoTo VeuxTravailler
        End If
        Case 18 To 21: msg = "Putain t'es encore au boulot ?"
        Case 22 To 24: msg = "Maintenant vas te coucher."
    End Select
 
    MsgBox msg
VeuxTravailler:
 
End Sub

ca devrait être bon :D
tu peux faire aussi que s'il est ouvert le message se lance à 10h, etc ;)

09/08/2007, 08h45
eillon

c'est vachement bien, mais il ne prend pas en compte l'heure, à 8h le matin j'ai le message pour la sieste...8O

Merci quand m^me.
09/08/2007, 08h58
Gorfael
Citation:

Envoyé par eillon

c'est vachement bien, mais il ne prend pas en compte l'heure, à 8h le matin j'ai le message pour la sieste...8O

Merci quand m^me.

Salut
dans le code transmis :
Code:

1 2 3 'test = Hour(Now) test = 14 Select Case test
ça a du lui servir pour tester les messages. Il faut remplacer ces lignes par ce que tu avais mis au départ :

Code:

Select Case Hour(Now)

A+
Et après y en a qui vont se plaindre de trop consacrer au travail :P
09/08/2007, 08h59
mordrhim
ma faute ^^ je faisais des test et n'ia pas changé le code ;D
Code:

1 2 3 'test = Hour(Now) test = 14 Select Case test
à remplacer par

Code:

Select Case Hour(Now)
09/08/2007, 10h24
eillon

Merci, ça marche nickel, je vais tester tout au long de la journée, je n'ai qu'un regret c'est de ne pas être là quand il vont ouvrir mon fichier...:bug:

Merci encore je vous tiens au courant en fin de journée pour vous dire si tout marche bien et je vais pouvoir ajouter des modifs sur les autres horaires...:king:
09/08/2007, 16h24
alsimbad

quand on s"amuse autant que ça au bureau, pourquoi partir en vacance ?
09/08/2007, 16h27
Guidhy

:mouarf: