Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Bonjour, il est 16hrs.....

Bonjour, il est 16hrs.....

5 réponses
Avatar
Denys
Bonjour =E0 tous,

Est-il possible de faire apparaitre un message =E0 l'=E9cran =E0=20
16hrs. Bien s=FBr, seulement si l'usager utilise=20
l'application Excel =E0 ce moment-l=E0 !!!! (qui comprend d=E9j=E0=20
des macros).

Merci

Denys
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Nicolas B.
Salut Denys,

A placer dans ThisWorkbook :
Private Sub Workbook_Open()
Application.OnTime Int(Now) + 16/24, "Toto"
End Sub

Et ceci dans un module standard :
Sub Toto()
MsgBox "Il est 16 h."
End Sub

Ne marche qu'à condition que l'application ne soit pas ouverte 24 h/24.


A+
--
Nicolas B.


Bonjour à tous,

Est-il possible de faire apparaitre un message à l'écran à
16hrs. Bien sûr, seulement si l'usager utilise
l'application Excel à ce moment-là !!!! (qui comprend déjà
des macros).

Merci

Denys


Avatar
garnote
Salut Denys,

Quand veux-tu apercevoir le message ?
Quand un utilisateur ouvre un classeur en particulier
ou quand il ouvre l'Application Excel ?

Serge


"Denys" a écrit dans le message de
news: 1d95901c453d3$6df42c20$
Bonjour à tous,

Est-il possible de faire apparaitre un message à l'écran à
16hrs. Bien sûr, seulement si l'usager utilise
l'application Excel à ce moment-là !!!! (qui comprend déjà
des macros).

Merci

Denys
Avatar
garnote
Si tu enregistres ces deux macros dans Perso.xls et
si un utilisateur ouvre l'Appplication Excel et que l'ordi
est encore ouvert à 16h, le message « Bonjour tout le monde. »
devrait apparaître.
Par contre si tu enregistres ça dans un classeur particulier,
le temps comptera à partir de l'ouverture dudit classeur.

Private Sub Workbook_Open()
Application.OnTime TimeValue("16:00:00"), "MaMacro"
End Sub

Sub MaMacro()
MsgBox " Bonjour tout le monde."
End Sub

Serge


"Denys" a écrit dans le message de
news: 1d95901c453d3$6df42c20$
Bonjour à tous,

Est-il possible de faire apparaitre un message à l'écran à
16hrs. Bien sûr, seulement si l'usager utilise
l'application Excel à ce moment-là !!!! (qui comprend déjà
des macros).

Merci

Denys
Avatar
Denys
Bonjour Nicolas et Serge,

Merci pour vos réponses. L'application est utilisée durant
la journée. Seulement, si la personne travaille encore
avec à 16hrs, le message apparaitra lui rappelant une
tâche à accomplir...

Encore merci

Denys

-----Original Message-----
Bonjour à tous,

Est-il possible de faire apparaitre un message à l'écran
à

16hrs. Bien sûr, seulement si l'usager utilise
l'application Excel à ce moment-là !!!! (qui comprend
déjà

des macros).

Merci

Denys
.



Avatar
ChrisV
Bonjour Denys,

Tu pourrais aussi, dans le cas ou l'utilisateur aurait fermé Excel (...)
mais serait encore à son poste après 16:00, utiliser le "Planificateur de
tâches" pour lancer un fichier *.vbs lui rappelant cette tâches à
accomplir...

Si besoin, relance...


ChrisV


"Denys" a écrit dans le message de
news:1d67d01c453dc$08a702d0$
Bonjour Nicolas et Serge,

Merci pour vos réponses. L'application est utilisée durant
la journée. Seulement, si la personne travaille encore
avec à 16hrs, le message apparaitra lui rappelant une
tâche à accomplir...

Encore merci

Denys

-----Original Message-----
Bonjour à tous,

Est-il possible de faire apparaitre un message à l'écran
à

16hrs. Bien sûr, seulement si l'usager utilise
l'application Excel à ce moment-là !!!! (qui comprend
déjà

des macros).

Merci

Denys
.