conversion de Date

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:

---

1 2 3 4

Public dateReleve As String dateReleve = Format(Now, "dd\/MM\/yyyy")   dateReleve = InputBox("Quelle la date du relevé ?", "Date", dateReleve)

---

Code:

---

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

---

Bonjour,

Problème - classique- de formatage Français\Américain

Une bonne déclaration de variable prend ici son importance.

Code:

---

1 2 3 4 5 6 7

Option Explicit   Sub essai_date() Dim ladate As Date ladate = InputBox(Prompt:="Entrer la date") Range("A1").Value = ladate End Sub

---

Testé sur Excel 2016

J'ai oublié. Bonjour au Forum.

A noter que l'entrée peut ici s'effectuer comme lors de la saisie d'une date dans une cellule.
A savoir, les 2 séparateurs servent de délimiteurs et la saisie des 0 comme le siècle ne sont pas obligatoires.

Ainsi, pour le 1er mars 2019.
La saisie de l'Inpubtox peut s'effectuer "1/3/19"

ça fonctionne. merci beaucoup