Discussion :

[ced0802]

Bonjour a tous,

J'ai une cellule avec le nombre suivant : 42340 qui correspond a une date.
Je le souhaiterais la conervertir en date avec un code vba.

Merci pour votre aide.

[Invité]

Bonjour
Je pense que vous aurez les éléments de réponse dans la Faq ici

[Sebphyto]

Bonjour,

Il faut traiter ta demande avec CDATE()

Voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ConvertirDate()
 
 
Dim ChaineConvertieEnDate As Date
 
MaDate = Range("A1").Value
 
ChaineConvertieEnDate = CDate(MaDate)
Debug.Print ChaineConvertieEnDate
Range("B2") = ChaineConvertieEnDate
End Sub

A+
Et ne pas oublier de voter

[ced0802]

Parfait
Merci beaucoup a vous !

[Sebphyto]

De rien mais ne pas oublier
A pluche