Date et tableau dynamique

Question

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.

cs_casy · Answer

Il me semble bien que tu as déjà poser cette question il y a 2/3 jours, et la réponse a été donner.

C'est un problème de date au format américain.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_falafala · Answer

C'est exact, on m'a donné des solutions mais ces solutions ne marchaient pas.
C'est pourquoi je refais un post.

cs_casy · Answer

Ok, dsl, j'avais pas suivi l'histoire.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

Bien que je ne comprend pas trop ce que tout celà fait, il me semble que Mortalino dans la dernière réponse qu'il t'a donné à commis une erreur :

Dim dJour As Date
    
dJour = CDate(Range("I2").Value)
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date").CurrentPage = Format(dJour, "mm/dd/yyyy")

Il a mis le format de date au format américain. 

Est-ce que ce code n'irait pas mieux ? :

Dim dJour As Date
    
dJour = CDate(Range("I2").Value)
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date").CurrentPage = Format(dJour, "dd/mm/yyyy")

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Date et tableau dynamique

4 réponses

Votre réponse

Discussions similaires