Discussion :

[Esculape]

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.

[parmi]

Bonjour,

Je pense que tu doives changer le format de cellule en texte

Code :

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

1
2
Range("A1").NumberFormat = "@"
Range("A1") = Format(Date - 1, "ddmmyyyy")

[Invité]

Code :

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

date_du_jour ="'" &  Format(Date - 1, "ddmmyyyy")

[Esculape]

Bonjour parmi, bonjour rdurupt,

Merci pour vos réponses! Et excusez-moi pour la lenteur de la mienne.

Vos codes marchent très bien, et ils ont l'avantage d'être simples!!

Bonne fin de journée,

Esculape.