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)

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

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

[alsimbad]

quand on s"amuse autant que ça au bureau, pourquoi partir en vacance ?

[Guidhy]