Le code :
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Donnees!R4C12:R" & DerLFiltre & "C23").CreatePivotTable
TableDestination:= _
"[Prepa.xls]Donnees!R14C1", TableName:="Tableau croisé dynamique3"
Cordialement
Pascal
c'est peu être le nom du tcd qui cause problème "Tableau croisé
dynamique3"
si ce nom a déjà été alouer une fois.
peut être en remplacant par
TableName:="Tableau croisé dynamique" & ActiveSheet.PivotTables.Count +1
isabelle
papou a écrit :
isabelle
papou a écrit :
Cordialement
Pascal
"isabelle" <as.isab...@videotron.ca> a écrit dans le message de
news:40AB7F78...@videotron.ca...
est ce que DerLFiltre est égal à 23 ?
isabelle
Papou a écrit :
je viens de refaire la manipulation et tant que la destination est dans
le même classeur ça va, mais dans un autre c'est l'erreur assuré.
d'ailleur quand on le fait à la mimine les seule options pour
destination sont soit une feuille existante ou une nouvelle feuille dans
le même classeur.
isabelle
Papou a écrit :
isabelle
Papou a écrit :
Dim LaPlageTcd$, ObjPivotCache
LaPlageTcd = "Donnees!R4C12:R" & DerLFiltre & "C23"
Set ObjPivotCache = ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:= _
LaPlageTcd)
With ObjPivotCache
.CreatePivotTable
TableDestination:=ThisWorkbook.Sheets("Donnees").Range("A14")
End With
En tout cas merci pour tes réponses
Cordialement
Pascal
"isabelle" <as.isab...@videotron.ca> a écrit dans le message de
news:40AE1C8B...@videotron.ca...
Cordialement
Pascal
"Papou" <otercecipa...@oterceciwanadoo.fr> a écrit dans le message de
news:uxhnZKzP...@TK2MSFTNGP12.phx.gbl...