Discussion :

[Helios07]

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 :

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

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

Qu'ai-je fait de mal ?

Merci

[ouskel'n'or]

Tu mets

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

ou ça

Code :

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

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"

[illight]

Tiens je viens de tester un truc marrant

J'ai écrit ça :

Code :

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

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 :

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

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

Il te renvoie la bonne date

Bref

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

[AlainTech]

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...

[ouskel'n'or]

Et si on fait

Code :

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

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"

[Helios07]

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 :

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

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