Conversion de format d'une date sous VBA - Recherche aide

**Alex-Le-Zombiz** · 07/02/2018, 17h17

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.

Invité · 07/02/2018, 17h22

Code :

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

1
2
3
MyDate = #2/1/2018#
 
AnneeMoisJour = Format(MyDate, "yyyymmdd")

**Alex-Le-Zombiz** · 07/02/2018, 17h41

Salut dysorthographie,

Merci beaucoup pour ton aide si rapide et parfaite ^^ Cela fonctionne ! Et c'est tellement plus simple !

Merci beaucoup à toi !
Alex.