Bonjour,

J'ai un soucis sur Excel.
Je récupère dans un InputBox une date et je copie cette valeur dans une cellule car elle me permet de faire une rechercheV dans une liste.

Malheureusement cette Date n'est pas convertie en version Local.
Exemple : Si je met 02/09/19 (2 Septembre), cette date est retranscrit dans Excel comme cela : 09/02/19 (9 février)

Pouvez vous m'aider SVP ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Public dateReleve As String
dateReleve = Format(Now, "dd\/MM\/yyyy")
 
dateReleve = InputBox("Quelle la date du relevé ?", "Date", dateReleve)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim valeurDateReleveAReporter As String
valeurDateReleveAReporter = dateReleve
Worksheets("Relevés").Range("A3").NumberFormat = "m/d/yyyy"
Worksheets("Relevés").Range("A3").Value = valeurDateReleveAReporter