Discussion :

[Eric93]

re-bonjour,

j'ai le code suivant :

Code :

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

1
2
3
 
Worksheets(feuille).Cells(lig, col).NumberFormat = "m/d/yyyy"
Worksheets(feuille).Cells(lig, col).Value = cel

où cel est une variable contenant une date sous la forme "aaaammjj".

j'obtiens ######### dans ma cellule, donc ca ne marche pas, le format de ma variable date est-il mauvais ?

Merci d'avance

[Jean-Pierre49]

Bonjour,

essais

Code :

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

Worksheets(feuille).Cells(lig, col).Value = Format(cel, "m/d/yyyy")

[LeForestier]

élargit d'abord ta colonne pour voir ce qu'il y a dedans
A+

[Eric93]

J'ai peut-être posté un peu vide,

après quelques recherche, je pense qu'il faut que ma variable ai le format "jj/mm/aaaa'

Il faut donc que je transforme ma chaine "aaaammjj" en "jj/mm/aaaa", si vous pouviez m'aider, je ne connais pas encore les fonction de chaine, je débute en VB.

Merci

[ouskel'n'or]

Regarde la réponse de JeanPierre et inspire-t-en
N'oublie pas que si tu parles VBA, tu parles anglais "dd/mm/yyyy"

[Eric93]

La réponse de jean-pierre ne résolvais pas mon problème, en fait j'ai trouvé, c'est bien le format de ma variable cel qui doit être de la forme "jjmmaaaa" pour être reconnu comme une date par excel.

J'ai effectué la transformation suivante et ca marche :

cel contient au départ une date de la forme "aaaammjj"

Code :

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

1
2
3
4
 
cel = Right(cel, 2) + "/" + Mid(cel, 5, 2) + "/" + Left(cel, 4)
Worksheets(feuille).Cells(lig, col).NumberFormat = "[$-40C]d mmmm yyyy;@"
Worksheets(feuille).Cells(lig, col).Value = cel

Dans cet exemple j'ai changé le format de sortie.

Merci de votre aide et désolé d'avoir posté un peu vite, je chercherais un peu plus la prochaine fois avant de poster

[ouskel'n'or]

Edit
Je viens de voir ce que tu as et ce que tu veux écrire, alors c'est "un peu" différent... Ce que tu as n'est pas une date mais un string.
on doit arriver à ça

Code :

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

Cel = Format(DateSerial(Annee, mois, jour), "dd/mm/yyyy")

il faut donc découper ton string en Annee, mois et jour. Ce qui devrait donner quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
 
Cel = Worksheets(feuille).Cells(lig, col).formula
Annee = Left(cel,4)
mois = Mid(Cel, 5,2)
jour = right(Cel,2)
Cel = Format(DateSerial(Annee, mois, jour), "dd/mm/yyyy")
Worksheets(feuille).Cells(lig, col).Value = cel

[LeForestier]

su toutes tes données sont au format aaammjj tu peu faire

Code :

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

1
2
Donnée = "20071217"
Variable = right(Donnée,2) & "/" & mid(Donnée,5,2) & "/" & left(Donnée,4)

A+
edit:
Bouuuuuuut ça va trop vite
Edit2:
Evite d'employé des '+' ça risque de poser des problèmes dans certain cas, emploi plutôt '&'

[ouskel'n'or]

Hello Leforestier, tu n'as pas peur qu'Excel prenne ça pour un string ?
C'est une question vraie. En passant par deteserial, je pense, enfin je suppose que l'ambiguïté est levée... mais peut-être me trompe-je

[LeForestier]

bonjour Ousk
A ma connaissance, dans excel toute les dates sont des string formaté.
pour l'exploité ça dépend de la variable

Code :

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

1
2
3
4
5
Dim a As String
'A1 = 17/12/2007
a = Cells(1, 1) 'renvoi > "17/12/2007"
dim b
b = Cells(1, 1) 'renvoi > 17/12/2007

A+