VBA Modification date

Bonjour,
J'aurai savoir si vous saviez comment transformer une date en VBA.
La case excel contiendra la date sous la forme JJ/MM/AAAA et j'aimerai la transformer en AAAAMMJJ.

EX : 10/08/2009 doit etre transformé sous VBA en 20090810.

Cdlt

Salut,

comme ceci:

Code:

---

Format(Feuil1.Range("A1").Value, "yyyymmdd")

---

++
Minick

Nikel :ccool:.
Merci pour ta réponse et ta rapidité.:D

Re,
J'aurai aimé aussi faire une autre modification de la date.
En partant de la date 11/08/09 j'aimerai avoir 09222.

"09" pour l'année et "222" car le 11 aout correspond au 222 ième jour de l'année.


Cdlt

Bonjour

Excel propose la fonction JOURS360.
Tu peux utiliser cette fonction dans VBA

Code:

---

Application.WorksheetFunction.Days360("01/01/2009", Now)

---

Je propose ce petit bricole à mettre dans un module!

Code:

---

1 2 3 4 5 6

Public Function Kodj(ByVal dte As Date) As String   Kodj = Right(Year(dte), 2) & Format(DateDiff("d", CDate("01/01/" & Year(dte)), dte), "000")     End Function

---

MeaCulpa 2

Bonjour à tous,

peut être une autre solution, comme ceci :

Code:

---

1 2	Dim x As String x = "09" & DatePart("y", #8/11/2009#)

---

Attention, sur mon éphéméride le 11 août est le 223ème jour de l'année...

bon après midi
@+

Effectivement Pierrot! le 11/8/2009 est le 223ème jour
le 1/1/2009 était le jour 0 alors:
pour n'importe quelle date et année je rectifie:

Code:

---

1 2 3 4 5

Public Function Kodj(ByVal dte As Date) As String   Kodj = Right(Year(dte), 2) & Format(1 + DateDiff("d", CDate("01/01/" & Year(dte)), dte), "000")   End Function

---

et avec DatePart c'est mieux! merci Pierrot

Code:

---

1 2 3 4 5

Public Function Kodj(ByVal dte As Date) As String   Kodj = Right(Year(dte), 2) & Format(DatePart("y", dte), "000")   End Function

---