Discussion :

[NEC14]

Bonjour à tous,

Dans ma barre de menus personnalisés, la date s'affiche à l'aide du code ci-dessous. J'aimerai ajouter l'heure (demande des utilisateurs) comment puis-je procéder ?

Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
'insertion sur la barre de menus d'une zone de texte avec la date du jour
Set Ctxt = Cbar.Controls.Add(msoControlEdit)
With Ctxt
    .style = msoComboLabel
    .Caption = "Nous sommes le :" '<-----texte du label
    .Text = Date '<----- affichage de la date du jour
    .Enabled = False '<----- la date est non modifiable
End With

J'ai fait ceci pour l'heure, mais elle ne s'affiche pas dans le textBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
'insertion sur la barre de menus d'une zone de texte avec l'heure
Set Ctxt = Cbar.Controls.Add(msoControlEdit)
With Ctxt
    .style = msoComboLabel
    .Caption = "Il est :" '<-----texte du label
    .Text = Heure '<----- affichage de l'heure
    .Enabled = False '<----- l'heure est non modifiable
End With

[Godzestla]

Bonjour,
je doute que cela soit possible sans usine à gaz, car ta barre perso pour la date n'a pas besoin d'être mise à jour mais uniquement initialisée, alors que l'heure.... c'est autrechose.

Ils sont un peu "exigeants" tes utilisateurs, vu qu'en Windows, l'heure est plutôt visible non ?

[Pierre Fauconnier]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Text = Now()

Eventuellement avec Format pour l'adapter à ta sauce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Text = format(now(),"dd/mm/yy hh:mm")

Il faut toutefois garder à l'esprit que ce n'est pas une horloge, et qu'il faut donc rafraîchir (réaffecter la valeur au texte du bouton) pour avoir l'heure courante, ce qui va être coûteux en ressource...

[NEC14]

Bonjour Pierre,

Merci pour ta réponse. Apparement cela à l'air assez compliquer.
Le but (pour ma hiérarchie) était de savoir combien de temps en moyenne un agent peut mettre pour enregister une demande ou tout autre travail. En clair combien de temps le fichier est resté ouvert pour un agent lambda. Du flicage en fait.
Bon je vais dire que c'est trop compliqué.
Encore merci

[Pierre Fauconnier]

Je ne vois pas bien comment ta hiérarchie récupérerait après coup le texte de la zone de texte avant et après modification de l'heure pour déterminer la durée d'une opération... Cela me semble une voie bien tortueuse.

Si c'est pour mesurer le temps de réalisation d'une action, tu peux utiliser une variable de type Date que tu initialises au moment du clic sur le bouton et que tu compares avec la valeur de Now() en fin de process...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Debut as date
Dim Duree as date
debut = now()
...
...
duree=now()-debut