Discussion :

[lps02]

bonjour les maîtres du vba,

Encore besoin de vos lumières :
Pour faciliter la saisie de données, j'ai créé un formulaire. pour la date j'utilise la ligne de code suivante :

Code :

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

1
2
'Date
Txtdate.Value = Format(Now(), "dd/mm/yyyy")

celle ci fonctionne très bien et me mets bien la date sous la forme "dd/mm/yyyy"
même quand la date du jour est dans les 12 premiers jours du mois (exemple : 01/07/2012)

Par contre sur la période des 12 premiers jours du mois quand je transferts les données sur la feuille excel, la format de date se transforme en "mm/dd/yyyy" (pour l'exemple ci dessus : 07/01/2012)
j'ai essayé de différentes façon mais toujours pareil. Pas de problème dans le transfert après le 12 de chaque mois.
Pouvez vous m'aider?

Mon code pour le transfert de la date :

Code :

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

1
2
With Worksheets("BD")
.Range("S" & i).Value = Txtdate.Value

Cordialement

[jfontaine]

Bonjour,

Ci dessous une solution

Code :

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

1
2
With Worksheets("BD")
.Range("S" & i).Value = DateValue(Txtdate.Value)

[gFZT82]

Bonjour,

Essaie avec

Code :

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

.Range("S" & i).Value = CDate(Txtdate.Value)

Cordialement.

EDIT : bonjour jfontaine

[lps02]

Un grand merci à vous deux. ça fonctionne

Cordialement
lps02