Discussion :

[GEGE95]

Bonjour à tous,

En VBA sous excel 2013
Un peu beaucoup novice, j'ai récupéré un fichier dans lequel il y a dans la colonne toute un série de chiffre qui correspondent à des dates que je voudrais transformer en date : jj/mm/aaaa

Exemple : 20170421 (les 4 premiers chiffres correspondent à l'année, les 2 suivants au mois et les deux derniers pour le jour) pour avoir dans une autre colonne 21/04/2017.
Est possible ?

D'avance merci pour vos réponses.

[unparia]

Bonjour
Utilise Left, Mid et Right (fonctions à lire dans ton ide VBA interne) pour déterminer l'année, le mois et le jour.
Le reste est ensuite trop simple (une simple concaténation).

[joe.levrai]

Bonjour,

j'ajouterais qu'au lieu d'une concaténation, l'utilisation de la fonction DateSerial() serait plus appropriée afin d'obtenir une Date et pas une Chaîne de caractère

un exemple parlant

Code :

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

1
2
3
4
5
6
7
8
Sub tttt()
Dim toto As Variant, titi As Variant, MonMot As String
MonMot = "20170421"
toto = DateSerial(Left(MonMot, 4), Mid(MonMot, 5, 2), Right(MonMot, 2))
titi = Right(MonMot, 2) & "/" & Mid(MonMot, 5, 2) & "/" & Left(MonMot, 4)
Debug.Print "titi =" & titi & " est de type " & TypeName(titi)
Debug.Print "toto =" & toto & " est de type " & TypeName(toto)
End Sub

[Invité]

Bonjour,
format("20170421","####-##-##")

[unparia]

Bonjour joe.levrai
je n'ai pas osé (au stade de débutant) aller à ceci :

Code :

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

1
2
monmot = "20170421"
MsgBox CDate((Format(monmot, "@@@@/@@/@@")))

[Invité]

Oui UnParia je me suis trompé!
cdate(format("20170421","0000-00-00"))

[GEGE95]

Probleme résolu, un grand merci à tous