Tcd et vba

[Bebere]

bonjour à toutes et tous
sur mon système et celui de mon copain
'la ligne fautive' ne l'est pas,mais sur le système de son boulot 'la ligne fautive' l'est(xpro,office2003) on a déjà eu des problèmes de dates qui sont résolus
la question:y a t'il moyen d'employer une autre syntaxe
With ActiveSheet.PivotTables(TcdParam(L, 1)) 'TcdNom
If TcdParam(L, 2) = "X" Then _
.PivotFields.Item(TcdParam(1, 2)).Orientation = xlPageField 'dates
.PivotFields.Item(TcdParam(1, 2)).CurrentPage = CStr(MaDate)'ligne fautive
à bientôt

 

[Compte Supprimé 979]

Re : Tcd et vba

Salut Bebere,

Tu nous mettrais le fichier qui pose problème, ce serait plus simple pour nous !

Donc A+

 

[Pierrot93]

Re : Tcd et vba

Bonjour Bebere, Bruno

as tu essayé de convertire en date plutôt qu'en texte :

remplace

.PivotFields.Item(TcdParam(1, 2)).CurrentPage = CStr(MaDate)'ligne fautive

par

.PivotFields.Item(TcdParam(1, 2)).CurrentPage = CDate(MaDate)'ligne fautive

bonne journée
@+