Minuteur/Alarme toutes les 2 heures [Clôturé]

[cathodique]

Bonsoir,

Après avoir bagué mes oisillons, la femelle voulant les leur retirait, les éjectent hors du nid.

Je dois donc les nourrir à la main (canari) toutes les 2 heures. Je voudrais qu'une alarme m'avertisse.

Donc le matin, je démarre le minuteur et toutes les 2 heures l'alarme retentit, avec possibilité de stopper l'alarme.

Si vous avez d'autres idées, je suis preneur.

Avec mes remerciements anticipés.

ps: fichier sonore ci-joint.

 

[BOISGONTIER]

Bonsoir,

Essai

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

JB

 

[cathodique]

Bonsoir JB,

Très gentil de ta part. Je suis persuadé que ça fonctionnera comme sur des roulettes.

Tu me rends un très grand service. Je tiens à sauver ses petites bêtes.
Ainsi, je n'oublierai de les nourrir. Je teste demain et reviendrai aux nouvelles.

Encore merci.

Bonne soirée.

 

[cathodique]

Re,

Trop pressé, j'ai démarré le processus sans toucher au réglage dans la macro 'majHeure'.

tu utilises le beep, mais sur mon pc le beep ne fonctionne pas depuis un bon moment.

J'ai réinstallé office mais sans succès.

Dommage, merci quand même.

Bonne soirée.

 

[Staple1600]

Bonjour le fil, le forum

@cathodique
Juste une question de passage ou juste de passage pour une question
Pourquoi utiliser Excel?
Windows sait trés bien afficher une alarme (grâce au planificateur de tâches)
Voir ici par exemple
https://protuts.net/transformer-pc-reveil-matin-aide-planificateur-taches/
(en plus tu as la possibilité de jouer un *.wav ou *.mp3)

 

[Si...]

Bon_jour

Pas de Beep ? Pour le Fun : avec une autre alerte musicale pour adoucir les mœurs …

Fichier joint supprimé, voir plus loin.

 

[cathodique]

Bonjour JM,

@cathodique
Si vous avez d'autres idées, je suis preneur.

Je ne sais pas comment afficher Cathodique a dit.

Dans mon premier post c'est ce que j'avais dit.
Pourquoi Excel? Étant mon application ou logiciel préféré, j'ai voulu joindre l'utile à l'agréable: un minuteur sous Excel.

Je ne sais toujours pas pourquoi le Beep, ne fonctionne pas ou plus sur mon Excel 2007, puis 2010 après mise à niveau.

Merci beaucoup, je vais m'intéresser à ce que tu proposes.

Bonne fin de journée.

 

[cathodique]

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 !

Bonjour Si... ,

Merci beaucoup, toujours dans la bonne humeur.

Mais ce message m'embête et Excel ne veut plus se fermer.

Merci quand même, c'est l'intention qui compte.

Bonne fin de journée.

 

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

 

[Staple1600]

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)

 

[cathodique]

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 beaucoup Si...
Pour le fichier MuZik voici le message obtenu

Pour le fichier Avertissement musical voici le message

Ne te tracasse pas, je m'en sors avec mon vieux téléphone Samsung.

1000 Mercis

 

[cathodique]

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)

Merci JM pour tes conseils. On ne peut pas tout connaitre, je ne connais pas toutes les possibilités avec windows.
En plus il faut savoir se qu'on fait. Personnellement, je ne tripote pas beaucoup dans windows par crainte de bousiller mon pc.
Quant au smartphone, je n'en ai pas. Je ne suis pas à jour de ce côté, pas beaucoup de moyens.

Merci beaucoup.

 

[Staple1600]

Re

@cathodique
Rien à craindre avec le planificateur de tâches, si il ne s'agit que créer une alarme qui beep ou joue une fichier média toutes les deux heures.
(tu as vu l'exemple du message#5, il y a avait un lien cliquable)

 

[Staple1600]

Re

@cathodique
Sinon selon ta version de Windows, tu mixer planificateur de tâches et vbscript et faire causer ton PC
(avec mon PC actuel (qui n'est pas l'usuel), ca cause angliche)
1) Tu ouvres le bloc-notes puis tu copies les lignes ci-dessous

Set voice = CreateObject("SAPI.SpVoice")
voice.Volume = 100
Say = "It is time"
voice.Speak Say

Ensuite tu enregistres sous message.vbs
(il faut que ton Windows soit paramétré pour afficher les extensions des fichiers
voir sur le net comment faire)
Ensuite pour tester double-cliques sur ce fichier *.vbs
Et écoutes ton PC te causer

Pour la suite, il suffit d'associer ce fichier *.vbs à la tâche que tu auras créé dans le planificateur de tâches

 

[Staple1600]

Bonjour Si...

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 !

Le problème perdure
Même message concernant le périphérique MCI

(testé avec Excel 2003)