Discussion :

[eillon]

Code :

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

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...

[mordrhim]

Code :

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

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 ?

[eillon]

Code :

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

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

[mordrhim]

Code :

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

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
tu peux faire aussi que s'il est ouvert le message se lance à 10h, etc

[eillon]

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

Merci quand m^me.

[Gorfael]

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

Merci quand m^me.

Salut
dans le code transmis :

Code :

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

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 :

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

Select Case Hour(Now)

A+
Et après y en a qui vont se plaindre de trop consacrer au travail

[mordrhim]

ma faute ^^ je faisais des test et n'ia pas changé le code ;D

Code :

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

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

à remplacer par

Code :

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

Select Case Hour(Now)