Discussion :

[MamaB]

Bonjours,
je voudrais savoir comme passer en Paramtrè le champ suivant sur un tableau croisé dynamique

Code :

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

1
2
3
4
 
            ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sourc).CreatePivotTable TableDestination:=fdest.["A3"], TableName:="TCD"
            fdest.PivotTables("TCD").RepeatAllLabels _
                        xlRepeatLabels

le champ "A3" comment le passer en paramètre.
Merci de votre collaboration pour résoudre mon problème
Bien cordialement
MamaB

[Menhir]

Code :

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

1
2
3
Dim RDest As String
RDest = "A3"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sourc).CreatePivotTable TableDestination:=fdest.Range(RDest), TableName:="TCD"

[MamaB]

Bonsoir,
j'avais déjà tester, il me mets comme erreur "Argument ou appel de procédure incorret"
Si tu as autre solution je suis preneur.
Bien à toi
MamaB

[MamaB]

Houps, cela fonctionne et encor merci pour ta solution