Mise en forme date

Bonjour à tous.

La macro suivante est censé chercher une date dans la case I2 et affecter cette date dans l'un des champs d'un tableau dynamique.

Or, j ai un petit soucis: lorsque dans I2 est inscrit 16/06/2006, la macro va choisir 6/16/2006 dans le tableau dynamique, date bien sur qui n'existe pas.


jour = Range("I2").Value
 
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
        CurrentPage = jour


Est ce que qq un sait pq?? Je vous remercie par avance/

Bonjour,

pour information, le format date des USA est : "mois/jour/année", et ce format est celui par défaut en vba

Donc il faudrait que je repasse toutes mes dates au format US?

Salut,

    Dim dJour As Date
   
dJour = CDate(Range("I2").Value)
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
        CurrentPage = dJour


@++

---

Merci pour la réponse mais je suis désolé, ca n'a pas l'air de marcher

je l'ai essayé comme ça, en simple :
    Dim dJour As Date
   
dJour = CDate(Range("A2").Value)
Range("B2").Value = dJour
' et dans A2 : 08/09/2006
et ça fonctionne, mais en tableau croisé dynamique, je ne sais pas si c'est différent.

As tu un message d'erreur, ou encore le même format ?
Quel est le format de la cellule de destination ?

@++

---

Pas de message d'erreur, juste le format US.

Et avec une méthode, pas très bien, certe, mais qui peut dépanner si fonctionne :

    Dim dJour As Date
   
dJour = CDate(Range("I2").Value)
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
        CurrentPage = Format(dJour, "mm/dd/yyyy")

@++

---

Ben ca ne marche toujours pas.

Petit up.
Il n'y a personne qui sait ou est le pb??