Affichage date et heure dans userform format spécifique

[aubelix]

Bonsoir à tous le samis du Forum.

Une question concernant un format pour afficher dans un textbox d'un userform.
J'ai récupéré le code ci-dessous dans le forum

Sub majHeure()
USF_Consult.Label27.Caption = Format(Now, "dd-mm-yyyy - hh:mm:ss")
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub


Quel est la syntaxe pour afficher en format de (Now,...
pour obtenir par exemple :
Nous sommes le Samedi 24 Janvier 2009 il est : 23:56:10

L'horloge se met à jour toutes les secondes.
J'ai essayé plusieurs formats et syntaxes, sans résultats cohérents

Merci pour aide.
Cordialement

 

[Mytå]

Re : Affichage date et heure dans userform format spécifique

salut le forum

USF_Consult.Label27.Caption ="Nous sommes le " & Format(Now, "dddd dd mmmm yyyy") & " il est : " & Format(Now, "hh:mm:ss")

Si besoin des Majuscules

"Nous sommes le " & Application.Proper(Format(Now, "dddd dd mmmm yyyy")) & " il est : " & Format(Now, "hh:mm:ss")

Mytå

 

[aubelix]

Re : Affichage date et heure dans userform format spécifique

Bojour à tous les amis du Forum.

Merci Myta pour ta réponse.
Elle réponds tout à fait à mon problème.
Cordialement.