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