Pb format date

**Maryy** · 04/07/2013, 14h52

Bonjour,

J'essaye de stocker des dates dans des cellules Excel avec du VBA. Rien de bien compliqué, je mets ma date en forme à partir d'une cellule Excel (Ex : Je récupère la valeur dans ma variable dtdoc = 20130611) de format standard. Puis je la stocke :

Code :

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

1
2
3
4
5
6
7
 
aa = Left(dtdoc, 4)
jj = Right(dtdoc, 2)
mm = Mid(dtdoc, 5, 2)
 
dtdoc2 = jj & "/" & mm & "/" & aa
Workbooks(wbprinc.Name).Worksheets("Feuil1").Range("A1").Value = dtdoc2

Si je regarde la valeur de dtdoc2 pendant l'exécution du code, elle est juste :
"11/06/2013".

Mais elle est stockée dans Excel de cette façon : "06/11/2013". Excel met la cellule au format Date (France) automatiquement.

Existe-t-il une règle particulière pour stocker une date dans une feuille Excel ?

Merci d'avance !

**EngueEngue** · 04/07/2013, 15h14

Salut coupine

Je ne comprends pas pourquoi te galérer avec des stringues...

Tu aimes les strings ?

Moi aussi, alors soit:

Code :

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

1
2
3
4
5
6
aa = Left(dtdoc, 4)
jj = Right(dtdoc, 2)
mm = Mid(dtdoc, 5, 2)
 
dtdoc2 = jj & "/" & mm & "/" & aa
Workbooks(wbprinc.Name).Worksheets("Feuil1").Range("A1").Value = Format(CDate(dtdoc2, "dd/mm/yyyy")

**Marc-L** · 04/07/2013, 15h15

Bonjour Marry,

c'est normal car la variable n'est pas pas réellement une donnée au format Date (respect d'un type de données) …

Donc soit déclarer en début de procédure la variable comme une Date : Dim dtdoc2 As Date ,

soit convertir la variable comme une donnée de type Date :

Workbooks(wbprinc.Name).Worksheets("Feuil1").Range("A1").Value = CDate(dtdoc2) …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**Maryy** · 04/07/2013, 16h08

C'est pas que j'aime les strings plus que les autres types mais c'est la méthode que j'ai trouvée pour transformer mon 20130611 en date. Une autre méthode à suggérer pitêtre ?

En fait, je n'ai pas pu déclarer ce champ en tant que type Date pour diverses raisons (c'était une date au début et puis j'ai dû mettre le champ en variant mais je t'avoue que je ne sais plus pourquoi). Super ! Merci beaucoup, le CDate est simple et efficace ! Vous êtes des boss !