Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Date Heure

Date Heure

12 réponses
Avatar
Peponne31
Bonjour,

Est-il possible d'intégrer dans une nouvelle barre de menu
à la fin des boutons La date du jour et l'heure.
Merci par avance
Peponne31
Signaler un problème avec ce contenu

2 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
1 2
Avatar
michdenis
| Peut-on formater la date comme ceci "Lundi 12 Semptembre 2009"
**** .Caption = format(Date,"DDDD D MMMM YYYY")


"Peponne31" a écrit dans le message de groupe de
discussion :
RE

Merci Michdenis

Je viens de rajouter les boutons qui me manquaient
et j'ai suivi ton exemple.
Peut-on formater la date comme ceci "Lundi 12 Semptembre 2009"
Merci encore
Peponne31

"michdenis" a écrit :

Met ceci dans un module standard :

'---------------------------------------
Sub CreateCustomCommandBar()
Dim MBar As CommandBar
Dim Stl As MsoButtonStyle
Stl = msoButtonCaption

On Error Resume Next
Application.CommandBars("Denis").Delete
Set MBar = Application.CommandBars.Add("Denis")
With MBar
.Visible = True
With .Controls.Add(msoControlPopup, , , , True)
.Style = Stl
.Caption = "Fichier" '<-- label du bouton
.Tag = "MyTag"
' insertion dans le sous-menu Fichiers d'un premier bouton de commande
With .Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Quitter Excel" '<-- label du bouton
'.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
End With
End With

With .Controls.Add
.Style = Stl
.Caption = Date
End With
With .Controls.Add
.Style = msoButtonCaption
.Caption = "Heure"
End With
.Visible = True ' Affichage de la nouvelle commandbar
End With
Set MBar = Nothing
Heure_Début
End Sub
'---------------------------------------
Sub Heure_Début()
Application.OnTime Now + TimeValue("0:0:01"), "Heure"
End Sub
'--------------------------------------
Private Sub heure()
Application.CommandBars("Denis").Controls(3).Caption = _
Format(Now, "HH:MM:SS")
Heure_Début
End Sub
'---------------------------------------



"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis,

Merci pour ton aide, dans un nouveau Module ça fonctionne mais je n'arrive
pas à l'intégrer dans la barre de menu que j'ai crééPeux-tu me corriger ?

Sub CreateCustomCommandBar()
' déclaration des variables
Dim cb As CommandBar, cbMenu As CommandBarPopup, cbButton As
CommandBarButton 'cbMenu As MsoControlCaption
DeleteCustomCommandBar ' supprime la barre de menu si elle existe
Dim MsoControlCaption
'création de la barre de menus
Set cb = Application.CommandBars.Add(ThisCommandBarName, msoBarTop,
False, True)
'Set cb > Application.CommandBars.Add(ThisCommandBarName.Controls(2).Caption > Format(Now, "HH:MM:SS"))
Heure_Début
With cb
.Visible = True
.Protection = msoBarNoMove + msoBarNoCustomize
End With

' *********insertion sur la barre de menus d'un sous-menu Fichier

Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "Fichier" '<-- label du bouton
.Tag = "MyTag"
End With
' insertion dans le sous-menu Fichiers d'un premier bouton de commande
With cbMenu.Controls.Add(MsoControlButton, 1, , , True)
.Caption = "&Quitter Excel" '<-- label du bouton
.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
End Wit
' +++++++++++++++++ Ajout Date et Heure +++++++++++++++++++++++++
Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = Date
.Tag = "MyTag"
End With

Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = "Heure"
End With

cb.Visible = True ' Affichage de la nouvelle commandbar
Set cbButton = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub

Merci
Peponne31
"michdenis" a écrit :

> | ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
> | Intrt : a fonctionne aussi sur les autres machines.
>
> ***Tu as dj russi crer une barre d'outils personnalise
> en y insrant la date et l'heure de cette faon ??????????????
>
>
>
>
>


Avatar
Peponne31
Re,

Merci Beaucoup
Bonne soirée.

Peponne31

"michdenis" a écrit :

| Peut-on formater la date comme ceci "Lundi 12 Semptembre 2009"
**** .Caption = format(Date,"DDDD D MMMM YYYY")


"Peponne31" a écrit dans le message de groupe de
discussion :
RE

Merci Michdenis

Je viens de rajouter les boutons qui me manquaient
et j'ai suivi ton exemple.
Peut-on formater la date comme ceci "Lundi 12 Semptembre 2009"
Merci encore
Peponne31

"michdenis" a écrit :

> Met ceci dans un module standard :
>
> '---------------------------------------
> Sub CreateCustomCommandBar()
> Dim MBar As CommandBar
> Dim Stl As MsoButtonStyle
> Stl = msoButtonCaption
>
> On Error Resume Next
> Application.CommandBars("Denis").Delete
> Set MBar = Application.CommandBars.Add("Denis")
> With MBar
> .Visible = True
> With .Controls.Add(msoControlPopup, , , , True)
> .Style = Stl
> .Caption = "Fichier" '<-- label du bouton
> .Tag = "MyTag"
> ' insertion dans le sous-menu Fichiers d'un premier bouton de commande
> With .Controls.Add(msoControlButton, 1, , , True)
> .Caption = "&Quitter Excel" '<-- label du bouton
> '.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
> End With
> End With
>
> With .Controls.Add
> .Style = Stl
> .Caption = Date
> End With
> With .Controls.Add
> .Style = msoButtonCaption
> .Caption = "Heure"
> End With
> .Visible = True ' Affichage de la nouvelle commandbar
> End With
> Set MBar = Nothing
> Heure_Début
> End Sub
> '---------------------------------------
> Sub Heure_Début()
> Application.OnTime Now + TimeValue("0:0:01"), "Heure"
> End Sub
> '--------------------------------------
> Private Sub heure()
> Application.CommandBars("Denis").Controls(3).Caption = _
> Format(Now, "HH:MM:SS")
> Heure_Début
> End Sub
> '---------------------------------------
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Bonjour Michdenis,
>
> Merci pour ton aide, dans un nouveau Module ça fonctionne mais je n'arrive
> pas à l'intégrer dans la barre de menu que j'ai crééPeux-tu me corriger ?
>
> Sub CreateCustomCommandBar()
> ' déclaration des variables
> Dim cb As CommandBar, cbMenu As CommandBarPopup, cbButton As
> CommandBarButton 'cbMenu As MsoControlCaption
> DeleteCustomCommandBar ' supprime la barre de menu si elle existe
> Dim MsoControlCaption
> 'création de la barre de menus
> Set cb = Application.CommandBars.Add(ThisCommandBarName, msoBarTop,
> False, True)
> 'Set cb > > Application.CommandBars.Add(ThisCommandBarName.Controls(2).Caption > > Format(Now, "HH:MM:SS"))
> Heure_Début
> With cb
> .Visible = True
> .Protection = msoBarNoMove + msoBarNoCustomize
> End With
>
> ' *********insertion sur la barre de menus d'un sous-menu Fichier
>
> Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
> With cbMenu
> .Caption = "Fichier" '<-- label du bouton
> .Tag = "MyTag"
> End With
> ' insertion dans le sous-menu Fichiers d'un premier bouton de commande
> With cbMenu.Controls.Add(MsoControlButton, 1, , , True)
> .Caption = "&Quitter Excel" '<-- label du bouton
> .OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
> End Wit
> ' +++++++++++++++++ Ajout Date et Heure +++++++++++++++++++++++++
> Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
> With .Controls.Add
> .Style = msoButtonCaption
> .Caption = Date
> .Tag = "MyTag"
> End With
>
> Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
> With .Controls.Add
> .Style = msoButtonCaption
> .Caption = "Heure"
> End With
>
> cb.Visible = True ' Affichage de la nouvelle commandbar
> Set cbButton = Nothing
> Set cbMenu = Nothing
> Set cb = Nothing
> End Sub
>
> Merci
> Peponne31
> "michdenis" a écrit :
>
> > | ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
> > | Intrt : a fonctionne aussi sur les autres machines.
> >
> > ***Tu as dj russi crer une barre d'outils personnalise
> > en y insrant la date et l'heure de cette faon ??????????????
> >
> >
> >
> >
> >


1 2