Modifier Date dans un Textbox

Résolu
dudulleray -  
 dudulleray -
Bonsoir a toutes et tous, Forum bonsoir



Excel 2007 VBA et Windows 7 32 bits

Le code ci-dessous m'affiche la date dans le format >> 15/Nov/2013 <<

Lorsque je modifie le code pour afficher dans le format >> 15 Novembre 2013 <<

de cette manière

.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dddd dd mmmm yyyy"))


j'ai une erreur d'exécution "13" incompatibilité de type


je ne comprends pas pourquoi, car lorsque je remets le code ci-dessous

Alors ca re-fonctionne bien ?????????

Merci beaucoup pour votre aide

bonne fin d'après midi a vous

Cdlt Ray


 With UserForm1


.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd/mmm/yyyy"))

DateExpiration = .TextBox4.Value

Ws.Range("B27") = DateExpiration 'Stocke la Date d'Expiration sur la Feuil(Compte)= Ws

.TextBox2.SetFocus 'Sort de l'USF calendrier(MonthView1)et mis le focus sur le TextBox2

End With
A voir également:

2 réponses

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Pourquoi un point devant TextBox ??
    TextBox4.Value = Application.Proper(Format(MonthView1.Value, "dddd dd mmmm yyyy"))
Fonctionne parfaitement
A+
1
dudulleray
 
Salut lermite222

Un point sinon j'ai une erreur de compilation etc etc

Par contre de cette manière ca fonctionne bien plus de plantage

.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd mmmm yyyy"))

Merci pour ton aide, une bonne journée

Bon W-end a toi

Cordialement Ray
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

Peut être comme ça :

.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd mmmm yyyy"))

;0)
1
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour Polux
dddd fait afficher le nom du jour.
Ca donne Jeudi 14 Novembre 2013
A+
0
dudulleray
 
Salut polux31

Merci pour ta réponse et pour le code

ça fonctionne bien plus de plantage sur mon fichier

.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd mmmm yyyy"))

Merci beaucoup pour ton aide, une bonne journée a toi

Bon W-end

Cordialement Ray
0