Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cathodique
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

cathodique

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

Pièces jointes

Trier par date Trier par votes
Bonsoir,

Essai

Code: 
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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.😀😀
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour JM😉,
@cathodique
Si vous avez d'autres idées, je suis preneur.
Cliquez pour agrandir...
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.😉
 
Vote positif 0 Vote négatif
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.😀
 
Vote positif 0 Vote négatif
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 !
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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)
😉😉
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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
Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Microsoft 365 Rafraichir fichier toutes les heures
Réponses
7
Affichages
1 K
mapomme
  • Question Question
Lancer alarmes à heures différentes 2
Réponses
2
Affichages
2 K
Chris57
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…