[VBA-E]Variable + format

Bonjour,

Dans un classeur avec plusieurs feuilles, j'ai une cellule contenant une date ex: 15/03/07) que j'ai paramétré en jj/mm/aa

Dans ma macro, j'ai fait ceci :

Code:

---

Date1 = Format(Sheets("Données").Range("D10"), "ddmmyy")

---

Si je fais Msgbox Date1 pour vérifier le résultat, le 15/03/07 devient :

11/07/2311 8O

Qu'ai-je fait de mal ?

Merci

Tu mets

Citation:

---

Date1 = Format(Sheets("Données").Range("D10"), "ddmmyy")

---

ou ça

Code:

---

Date1 = Format(Sheets("Données").Range("D10"), "dd/mm/yy")

---

parce que si c'est la première option, je suis même étonné que tu aies "11/07/2311"

Tiens je viens de tester un truc marrant :mrgreen:

J'ai écrit ça :

Code:

---

1 2 3 4 5

Sub test() Dim date1 As Date date1 = Format(Sheets("Feuil1").Range("F9"), "ddmmyy") MsgBox date1 End Sub

---

Effectivement il me retourne ce que tu as dit..

Mais si tu écris ça :

Code:

---

1 2 3 4

Sub test() date1 = Format(Sheets("Feuil1").Range("F9"), "ddmmyy") MsgBox date1 End Sub

---

Il te renvoie la bonne date :mouarf:

Bref :mrgreen:

Le problème vient du fait que ta date est un nombre, donc ici par exemple ta date en fait c'est 39156 :mrgreen: du coup il te le met au format date, et il a un peu de mal Excel :mrgreen:

Logique...

En utilisant Format, on transforme la date en String.
En envoyant une String dans une variable de type Date, il peut se passer n'importe quoi...

Et si on fait

Code:

---

1 2 3 4 5

Sub test() Dim date1 date1 = Format(cdate(Sheets("Feuil1").Range("F9")), "ddmmyy") MsgBox date1 End Sub

---

ça donne quoi ? hein ? On a bien ce qu'on a demandé => "ddmmyy"

Ouskel, c'est bien la première des deux options que j'avais utilisé avec le résultat que je vous ai donné plus haut.

J'ai essayé de déclaré la variable sans lui affecter un genre particulier :

Code:

---

1 2 3 4 5

Sub test() Dim date1 date1 = Format(cdate(Sheets("Feuil1").Range("F9")), "ddmmyy") MsgBox date1 End Sub

---

...et ça marche impecc.

Merci pour votre aide à tous :yaisse2: