Forcer le format des dates dans une cellule

Ma cellule contient une date mais je veux forcer son format. Cela m'affiche des numeros à la place correspondant au nombre de jours!

Code:

---

Cells(k, 1) = Cells(3, 2)

---

Format de la date souhaitée : AAAAMMJJ

Dans une autre cellule je rentre la formule suivante :

Code:

---

Cells(k, 3).Value = "=TODAY()"

---

Il me faudrait forcé la date au format suivant : AAAAMMJJHHMM

Regardez dans l'aide de VBA : fonction "Format", Class "Strings" , vous avez tous les exemples.

Je ne vois pas ...!!
dans l'aide à chaque fois j'ai jste aammjj mais rien qui m'aide vraiment comment forcer la valeur du champs à un format de date souhaité!

Bonjour,

quand je ne sais pas, je fais comme ceci.

teste, cela fonctionne.

Outil -> Macro -> Enregistrer nouvelle macro

Tu formattes alors ta cellule à ta guise.

Outil -> MAcro -> Arrêter enregistrement

Résultat dans modulen

Pour ta demande j'ai obtenu

Code:

---

1 2	Selection.NumberFormat = "yyyymmdd""T""hhmmss;@"

---

que tu peux aisément transformer en

Code:

---

1 2	Selection.NumberFormat = "yyyymmddhhmmss;@"

---

C'est en trouvant soi-même qu'on apprend le plus. ;)

Code:

---

Cells(k, 3).Value = "=TODAY()".Selection.NumberFormat = "yyyymmddhhmmss;@"

---

Ne fnctionne pas!je ne connais pas la syntaxe.

Je sais bien qu'en passant par l'enregistreur macro je peux trouver le bon format mais c'est dans la redaction du code que j'ai un probleme...
Comment indiquer qu'on veut que notre cellule reference(cells(i,2) soit de tel format.

Merci.

En faisant 2 instructions :

Code:

---

1 2 3

Cells(k, 3).Value = "=TODAY()" cells(k,3).NumberFormat = "yyyymmddhhmmss;@"

---

merci..j'aurai pu chercher longtemps..:)

Citation:

---

Envoyé par cchampion2fr

merci..j'aurai pu chercher longtemps..:)

---

C'est logique, car quand manuellement tu saisis =Today() et que tu forces le format, tu le fais en 2 étapes distinctes. :roll: