L'ok, nous a laissés essayer ce contournement, capturant la corde fonctionnante et faire un remplacement là-dessus
myName secondaire ()
Faible pvtTable comme PivotTable
Faible SQLString comme corde
pvtTable réglé = ActiveSheet.PivotTables (1)
Avec pvtTable.PivotCache
SQLString = .CommandText 'la question de SQL
SQLString = remplacent (SQLString, « 2008-01-01 », « 2010-01-01 »)
.CommandText = SQLString
Extrémité avec
Sous-marin d'extrémité
