Bonjour à tous ,

Dans le cadre d'un projet, je cherche à convertir une date d'un format : 2 / 1 / 2018 vers un format concaténé tel que on aurait : 20180102
Autrement dit (Convertir dd/mm/yyyy vers yyymmdd)

J'ai donc rédigé un code simple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Datetrait()
 
Dim MyDate As Date
Dim MyStr As String
 
MyDate = 2 / 1 / 2018
 
 
Annee = Format(MyDate, "yyyy")
mois = Format(MyDate, "MM")
jour = Format(MyDate, "dd")
 
MyStr = Annee & mois & jour
 
MsgBox (MyStr)
 
End Sub
Le soucis étant que la MsgBox me renvoie bien une valeur concaténée mais qui n'a absolument rien à voir avec les chiffres de la date à priori (18991230)...

Je sais que dans Excel les dates correspondent à un nombre particulier et je me demande donc si l'erreur ne viendrais de la ligne 4, j'ai l'impression de mal renseigner la date à cet endroit ? Ou de mal déclarer mes variables ?

Je vous informe juste que VBA c'est du tout neuf pour moi, j'ai codé quelques trucs mais y'a encore du boulot à faire ^^"

Merci d'avance pour votre aide parce-que je sèche un peu là ^^

Bonne soirée,
Alex.