XL 2010 Pourquoi Now ne renvoie pas hh:mm:ss

[cp4]

Bonjour,

Je suis sous windows7 6 bits et Excel 2010 32 bits. Merci de tester le code et me confirmer le résultat de la fonction.
Mes paramètres régionaux sont le Français. Mais sur mon pc la fonction Now ne renvoie pas l'heure (image)

J'utilise le code ci-dessous recopier rigoureusement d'un tuto

''creation fonction avec plusieurs parametres
Function CustomDate(DateToFormat, IncludeTime As Boolean) As String
    If IncludeTime Then
        CustomDate = Format(Date, "dddd dd mmmm yyyy hh:mm:ss")
    Else
        CustomDate = Format(Date, "dddd dd mmmm yyyy")
    End If
End Function
''utilisation de la fonction avec plusieurs parametres
Sub CreateNewSheet()
    Worksheets.Add
    Range("A1").Value = "Created on " & CustomDate(Now, True)
End Sub

Si tout fonctionne parfaitement chez-vous, auriez-vous une piste pour résoudre cette problématique.

En vous remerciant par avance.

 

[Staple1600]

Bonjour le fil, cp4

Ca marchera mieux ainsi

Function CustomDate(DateToFormat, IncludeTime As Boolean) As String
    If IncludeTime Then
        CustomDate = Format(DateToFormat, "dddd dd mmmm yyyy hh:mm:ss")
    Else
        CustomDate = Format(DateToFormat, "dddd dd mmmm yyyy")
    End If
End Function

 

[cp4]

Bonjour le fil, cp4

Ca marchera mieux ainsi

Function CustomDate(DateToFormat, IncludeTime As Boolean) As String
    If IncludeTime Then
        CustomDate = Format(DateToFormat, "dddd dd mmmm yyyy hh:mm:ss")
    Else
        CustomDate = Format(DateToFormat, "dddd dd mmmm yyyy")
    End If
End Function

Bonjour Staple1600,

Comment dire je suis confus. La prochaine fois je revérifierai plus d'une fois.
En effet, ça fonctionne mieux comme tu me l'indiques et c'était ainsi dans le tuto (vidéo).
C'est de ma faute, en faisant un copier/coller j'ai pris le mauvais code.

Si tu permets un autre question. Y a-t-il un moyen dans les paramètres d'excel qui permet de renvoyer le jour et le mois en majuscule (ou ça a un rapport avec la version d'excel?)? En effet, avec ce code sur la vidéo le jour et le mois sont en majuscule.

Merci beaucoup.

 

[mapomme]

En effet, avec ce code sur la vidéo le jour et le mois sont en majuscule.

Bonjour @cp4 ,

Je ne vois ni le jour ni le mois en majuscule sur la vidéo sauf leur première lettre.
En français, ni le jour ni le mois ne sont des noms propres et donc ne prennent pas de majuscule sauf si c'est le premier mot de la phrase.

 

[Staple1600]

Bonjour mapomme

[crise d'égomanie post-digestion]
Tu as bien taillé tes bordures ?
[/crise d'égomanie post-digestion]

=>cp4
Actuellement bloqué dans une faille temporelle( XP+XL2003+K_Meleon), je ne peux pas voir de video T=YT.
Je ne peux que triturer du VBA dans VBE.

 

[cp4]

Je ne vois ni le jour ni le mois en majuscule sur la vidéo sauf leur première lettre.
En français ni le jour, ni le mois ne sont des noms propres et donc ne prennent de majuscule.

Bonjour,
Oups! Je pense qu'aujourd'hui n'est pas mon jour . 1000 excuses.
Je voulais dire les premières lettres (comme nom propre)
ci-dessous capture de la vidéo

Comme le code ajoute une feuille et insère un texte suivi de la date. J'en ai conclu que la cellule n'a pas été formatée au préalable. Dans le code il n'y a rien qui format la 1ère lettre (jour et mois). N'ayant pas d'explication, je suis resté perplexe.

Encore merci et mes excuses pour mes étourderies à répétition.

 

[cp4]

Bonjour mapomme

[crise d'égomanie post-digestion]
Tu as bien taillé tes bordures ?
[/crise d'égomanie post-digestion]

=>cp4
Actuellement bloqué dans une faille temporelle( XP+XL2003+K_Meleon), je ne peux pas voir de video T=YT.
Je ne peux que triturer du VBA dans VBE.

@Staple1600 : Aucun souci. Merci beaucoup.

 

[mapomme]

Tu as bien taillé tes bordures ?

Bonjour @Staple1600 ,

Au cordeau mon contour, mon pourtour, mon entour et qui plus est sur tout le tour!​

 

[mapomme]

Comme le code ajoute une feuille et insère un texte suivi de la date. J'en ai conclu que la cellule n'a pas été formatée au préalable. Dans le code il n'y a rien qui format la 1ère lettre (jour et mois). N'ayant pas d'explication, je suis resté perplexe.

En anglais, le jour et le mois prennent une majuscule. Ce doit être comme cela qu'est construit format en zone anglo-saxonne (sans doute en américain aussi puisque VBA en est originaire des USA).
En français point de majuscule, ce sont des noms communs.

 

[cp4]

En anglais, le jour et le mois prennent une majuscule. Ce doit être comme cela qu'est construit format en zone anglo-saxonne (sans doute en américain aussi puisque VBA en est originaire).
En français point de majuscule, ce sont des noms communs.

Ok, bien noté! ton explication est très claire.

Merci à vous deux.

ps: je n'ai rien compris à votre histoire de bordures.

 

[patricktoulon]

bon ben si tu tiens a mettre tes mois en nom propre

Function CustomDate(DateToFormat, IncludeTime As Boolean) As String
    Dim D$, propermonth
    propermonth = StrConv(MonthName(Month(DateToFormat)), vbProperCase)
    If IncludeTime Then
        D = Format(DateToFormat, "dddd dd mmmm yyyy hh:mm:ss")
    Else
        D = Format(DateToFormat, "dddd dd mmmm yyyy")
    End If
    CustomDate = Replace(D, MonthName(Month(DateToFormat)), propermonth)
    End Function
Sub testh()
    MsgBox "Created on " & CustomDate("23/12/2021", True)
    MsgBox "Created on " & CustomDate(Date, True)
    MsgBox "Created on " & CustomDate(Now, True)
End Sub

LOL

 

[cp4]

bon ben si tu tiens a mettre tes mois en nom propre

Function CustomDate(DateToFormat, IncludeTime As Boolean) As String
    Dim D$, propermonth
    propermonth = StrConv(MonthName(Month(DateToFormat)), vbProperCase)
    If IncludeTime Then
        D = Format(DateToFormat, "dddd dd mmmm yyyy hh:mm:ss")
    Else
        D = Format(DateToFormat, "dddd dd mmmm yyyy")
    End If
    CustomDate = Replace(D, MonthName(Month(DateToFormat)), propermonth)
    End Function
Sub testh()
    MsgBox "Created on " & CustomDate("23/12/2021", True)
    MsgBox "Created on " & CustomDate(Date, True)
    MsgBox "Created on " & CustomDate(Now, True)
End Sub

LOL

Bonsoir PatrickToulon ,

Merci beaucoup pour ton code. En fait, je ne cherchais pas à avoir absolument mes mois en nom propre.
J'ai simplement suivi un tuto sur youtube concernant les fonctions. J'ai repris le code et me suis aperçu que dans la vidéo la 1ère lettre du jour et du mois étaient en majuscules et non chez. Jusqu'à ce que Mapomme m'explique que c'était ainsi en anglais.
Justement, tu tombes bien. Je devais revenir vers toi pour un code que tu m'as gracieusement fait concernant l'affichage en plein écran d'un userform avec ajustement de taille de police(en fonction des dimensions de l'écran).
Le code fonctionne bien. Mais j'ai rencontré un problème, sa taille augmente.
Je reviendrai quand j'aurais fait un fichier pour illustrer le problème avec de plus amples explications.

Encore merci pour ton partage.

Bonne soirée.