Dim temps
Sub majHeure()
ThisWorkbook.Sheets("feuil1").[A1] = Now
temps = Now + TimeValue("00:01:00") 'adapter
Application.OnTime temps, "majHeure"
Beep
tempo
Beep
tempo
Beep
End Sub
Sub Démarre()
majHeure
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
Sub tempo()
fin = Timer + 1
Do While Timer < fin
DoEvents
Loop
End Sub
Je ne sais pas comment afficher Cathodique a dit.@cathodique
Si vous avez d'autres idées, je suis preneur.
Bonjour Si...Bon_jour
Pas de Beep ? Pour le Fun : avec une autre alerte musicale pour adoucir les mœurs …
Enregitrer les 2 fichiers dans le même dossier. Si le morceau ne plait pas, en télécharger un (.Mid) et le renommer MuZik.Mid. Il faudra sans doute régler la durée D !
Merci beaucoup Si...Re
message modifié !
le premier problème que je rencontre ici c'est de ne pouvoir joindre un .Mid.
En passant par le .Zip on peut rencontrer en rencontrer d'autres.
Donc, dernière tentative : je joins 2 fichiers .xlsm . Il faudra les enregistrer dans le même dossier puis renommer le MuZic en .Mid.
Si le problème perdure, j'effacerai mes propositions !
Merci JM pour tes conseils. On ne peut pas tout connaitre, je ne connais pas toutes les possibilités avec windows.Re,
==> @cathodique
Excel est d'abord un tableur à la base.
Si tu es sous Windows pourquoi se priver des possibilités offertes par Windows lui-même ?
Ici le planificateur de tâches
(ici beaucoup plus simple et moins lourd à utiliser qu'Excel)
Et contrairement à Excel, le planificateur de Windows ne plante pas
(Windows ca peut lui arriver mais c'est une autre histoire)
EDITION D'ailleurs, le plus souple si tu as un smartphone, c'est de créer ton alarme sur celui-ci
Cela évitera de laisser ton PC allumé et allongera la durée de vie des hauts-parleurs de ton PC.
(et accesoirement tu économiseras du courant)
Set voice = CreateObject("SAPI.SpVoice")
voice.Volume = 100
Say = "It is time"
voice.Speak Say
Re
Donc, dernière tentative : je joins 2 fichiers .xlsm . Il faudra les enregistrer dans le même dossier puis renommer le MuZic en .Mid.
Si le problème perdure, j'effacerai mes propositions !