Date + textbox

Salut,

C'est un peu normal.

D = Me.TextBox1.Value
D = D & " " & Format(Me.TextBox1.Value, "DDDD DD MMMM YY")

Tu concatène à la valeur D son format sous la forme DDDD DD MMMM YY

Utilises simplement
D = Format(Me.TextBox1.Value, "DDDD DD MMMM YY")

Mais attention, tu n'as plus une date mais un string.


--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"oliver" <oliver6@free.fr> a écrit dans le message de news:
uw1IazLgJHA.3456@TK2MSFTNGP03.phx.gbl...

Bonjour,
avec le code suivant, lorsque je rentre une date "12/12/2008" dans le
textbox, elle apparait sous forme:
12/12/2008 vendredi 12 décembre 2008
je souhaiterais juste vendredi 12 décembre 2008
Merci de votre aide
***********************************
Private Sub CommandButton1_Click()
Dim D As String ' date
D = Me.TextBox1.Value
D = D & " " & Format(Me.TextBox1.Value, "DDDD DD MMMM YY")
If Me.TextBox1.Value = "" Then
MsgBox " Il faut saisir la date !", vbExclamation, "Erreur"
Exit Sub
End If
RemplirSignet "Date", D
ActiveDocument.Fields.Update

Me.Hide
End Sub