Format Date avec VBA

[MAZETTE]

Bonsoir à tous,

Après quelques recherche sur le Forum, je n'ai pas réussi à trouver mon bonheur .

Je souhiaterai savoir s'il était posible d'afficher dans une boite de dialogue une date au format: "jjjj jj mmmm aaaa" .

J'utilise ce petit code pour effecter un affichage mais je n'obtient que le format : " jj mmmm aaaa" .

Sub Macro1()

Dim a As Date
a = Range("D5")

'Indiquer le CA prévisionnel du jour 1

Range("D4").FormulaR1C1 = InputBox("Indiquer le CA Prévisionnel du " & " " & a)

If Range("D4").Value < 0 Then
MsgBox "Merci de renseigner un CA positif "

End If

End Sub

En pièce jointe un bout de fichier

Merci à vous

 

[JCGL]

Re : Format Date avec VBA

Bonjour à tous,

Peux-tu essayer avec :

Sub Macro1()
Dim a As Date
a = Range("D5")
Range("D4").FormulaR1C1 = InputBox("Indiquer le CA Prévisionnel du " & " " & Format(a, "dddd dd mmmm yyyy"))
If Range("D4").Value < 0 Then
        MsgBox "Merci de renseigner un CA positif "
End If
End Sub

A+

 

[MAZETTE]

Re : Format Date avec VBA

Re JCGL,

C'est tout à fait ça....youpi et encore merci

@+