Bonjour à tous,

Je cherche, afin de récupérer une variable liée à la date du jour à afficher automatiquement la date d'aujourd'hui moins 1 jour dans un format spécifique (ddmmyyyy).

J'ai réussi à afficher la date sans les "/" (par exemple pour le 12/02/2016 on affichera 12022016), mais je n'arrive pas à conserver le "0" au début de dates non décimales comme c'est le cas avec le 04/03/2016 qui m'affiche 4032016 (seulement 7 caractères donc).

Voici les codes que j'ai essayé, où à chaque fois le "0" est supprimé.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Date()
 
Dim date_du_jour As String
 
date_du_jour = Format(DateSerial(Year(Date), Month(Date), Day(Date) - 1), ddmmyyyy)
date_du_jour1 = Replace(date_du_jour, "/", "")
 
 
Range("A1").Value = date_du_jour1
 
End Sub
ou

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub Date()
 
date_du_jour = Format(CDate(DateSerial(Year(Date), Month(Date), Day(Date) - 1)), "ddmmyyyy")
 
End Sub


Merci d'avance pour votre contribution,

Esculape.