Discussion :

[vivi4561]

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

[Minick]

Salut,

comme ceci:

Code :

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

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

++
Minick

[vivi4561]

Nikel .
Merci pour ta réponse et ta rapidité.

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

[jfontaine]

Bonjour

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

Code :

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

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

[mercatog]

Je propose ce petit bricole à mettre dans un module!

Code :

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

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

[Pierrot93]

Bonjour à tous,

peut être une autre solution, comme ceci :

Code :

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

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
@+

[mercatog]

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 :

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

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 :

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

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