Comment copier une date d'un TextBox vers un fichier Excel

Bonjour,
Je souhaite pouvoir copier les valeurs saisies dans un TextBox vers une cellule Excel mais la recopie s'effectue dans un autre format . Dans le TextBox je saisie sous le format dd/mm/yy et la date copiée est sous le format mm/dd/yy. Pourriez-vous m'apporter votre aide ?
Ci dessous ce que j'ai actuellement de codé :

1°) Je définie le format de la date

Code:

---

1 2 3 4

Private Sub TxtDate_AfterUpdate() TxtDate = Format(CDate(TxtDate.Value), "dd/mm/yy") End Sub

---

2°) Je recopie la valeur vers Excel (je ne mets que la ligne concernée)

Code:

---

1 2 3 4 5 6

Private Sub CmdEnregistrer_Click() ... Cells(numLigne, 46) = TxtDate.Value ... End sub

---

C'est là que j'ai le pb, la recopie n'est pas au bon format.

Merci par avance
MichaSarah

Bonjour,

J'avais eu le même problème que toi, et ce code a fonctionné:

Code:

---

1 2 3

Range("H61").End(xlUp)(2).Value = CDate(TextBox7)

---

Bien sur il te faut l'adapter à tes besoins,
moi ce que je fait c'est recopier cette date à la première cellule vide de la colonne H. (depuis la cellule 61 en remontant)

Bonjour,

Dans ce code, essaies ceci

Code:

---

1 2 3 4 5 6

Private Sub CmdEnregistrer_Click() ... Cells(numLigne, 46) = CDate(TxtDate) ... End sub

---

Bonsoir jordan973 et NEC14,

Merci pour aide. Problème résolu.

MichaSarah