date

**isis1be** · 03/05/2008, 15h49

Salut à tous

Dans un UserForm j'intègre automatiquement la date du jour dans ma zone de texte avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textB_date.Value = Date

mais apparemment lorsqu'il l'insère dans ma feuille excel il met le mois puis le jour alors que dans le format de ma cellule je l'ai formater correctement.
Comment doit-je faire dans le code pour le mettre correctement? Faut-il que je rajoute ddd/mmm/yyy? et comment?
Je vous remercie de votre aide et à très bientôt.

**Gorfael** · 03/05/2008, 18h26

Salut isis1be
le plus simple que j'ai trouvé, c'est de définir le format de la cellule de réception soit manuellement, soit par VBA (avec une macro "apprentissage" pour avoir le bon code)
A+

**isis1be** · 03/05/2008, 21h29

Salut Gorfael

Le format de ma cellule je l'ai déjà mis manuellement mais je pense que mon problème vient du format sur ma UserForm car il me met

03/05/2008 mais dans ma feuille Excel il m'affiche 05/03/2008 alors que dans le format de la cellule j'ai spécifier 14/03/2001

donc je suppose que c'est la manière dont j'ai mis la date sur ma UserForm à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textB_date.Value = Date

Non?

**Gorfael** · 04/05/2008, 11h04

Salut isis1be
Je comprends pas tout ?!!?
Si la date qui apparaît dans ton USF n'est pas au bon format, ça seait bien de le préciser dans ton poste. Moi, j'avais compris que bien qu'elle soit correctement affichée dans ta textebox, elle s'affichait différemment sur la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textB_date.Value = format(Date, "dd/mm/yyyy")

A+

**AlainTech** · 04/05/2008, 12h04

Si, au moins, tu nous avais montré ton code d'insertion de la valeur de la TextBox dans la feuille Excel, on aurait vu (je suppose) que tu ne transformais pas cette valeur en Type Date.
Ceci devrait marcher:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1) = CDate(textB_date.Value)

**isis1be** · 04/05/2008, 15h55

Désolé pour le manque de clarté, mais à force j'ai du mal moi même

Je vient de revérifier et effectivement la date s'affiche correctement dans ma
textB_date et s'affiche mal dans ma feuille excel (inverse le mois et le jour)
Comme code utilisé c'est celui que j'ai spécifier antérieurement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textB_date.Value = Date

Dans le format de la cellule j'ai spécifier le format

*14/03/2001

voila cette fois c'est le bon, vraiment désolé pour l'erreur que je vous aie donné.
J'ai essayer le code que m'a donné AlainTech mais il me trouve une erreur d'exécution 13 incompatibilité de type?????
Encore un grand merci pour votre aide