Bonjour a toutes et tous, Forum bonjour

Je récupère une date dans mon TextBox4 au format suivant 22/Oct/2013

je souhaiterai svp copier cette date dans ma feuil(Compte) en B27 également et excatement au mème format

j'ai modifier le format de la cellule mais je n'arrive pas a obtenir le bon format voulu dans ma cellule B27 malgré pleins d'essais

en fait ca copie sous ce format 22/10/2013 alors que je souhaite 22/Oct/2013 première lettre du mois en majuscule

Info: Ws = nom de ma feuil1 > (Compte)

En vous remerciant pour votre aide et pour votre temps

Bonne journée a tous

Cordialement Ray

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 
UserForm1.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd/mmm/yyyy"))
 
DateExpiration = UserForm1.TextBox4.Value
 
Ws.Range("B27") = DateExpiration
 
Unload Me
End Sub