VBA_Afficher Date format "04032016"

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:

---

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:

---

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.

Bonjour,

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

Code:

---

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

---

Code:

---

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

---

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.