Problème de Format date

Bonjour,

Je voudrai enregistrer une date dans un tableau Excel à partir d'une useforme. Mon code est le suivant :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click ()   VarTextBox1 =Useforme1.TextBox1 Worksheets ("Base").Cells(2,1)=VarTextBox1   End Sub

---

Mon problème est que quand je rentre la date 06/05/2013 dans la Textbox la date enregistrée dans la base est 05/06/2013. Par contre je ne rencontre pas ce problème avec la date 15/05/2013.

Auriez-vous une solution à mon problème ?

Merci d'avance

Essaye de "jouer" avec le formatage de ta date exemple :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click ()   VarTextBox1 =Format(Useforme1.TextBox1, "mm/dd/yyyy hh:mm") Worksheets ("Base").Cells(2,1)=VarTextBox1   End Sub

---

Bonjour,

Remplace :

Code:

---

Worksheets("Base").Cells(2, 1) = VarTextBox1

---

par :

Code:

---

Worksheets("Base").Cells(2, 1) = CDate(VarTextBox1)

---

Bonjour,

Citation:

---

Envoyé par emilie10

Mon problème est que quand je rentre la date 06/05/2013 dans la Textbox la date enregistrée dans la base est 05/06/2013. Par contre je ne rencontre pas ce problème avec la date 15/05/2013.

Auriez-vous une solution à mon problème ?

---

en dehors de la solution, il y a la compréhension qui permet de ne pas répliquer les problèmes ;)

Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier