Discussion :

[emilie10]

Bonjour,

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

Code :

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

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

[pitipilot]

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

Code :

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

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

[Daniel.C]

Bonjour,

Remplace :

Code :

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

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

par :

Code :

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

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

[Didier Gonard]

Bonjour,

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