Date + textbox

Le
oliver
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
heureux-oli
Le #18504921
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"
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


Publicité
Poster une réponse
Anonyme