Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA : Erreur N° 5 sur création TCD

171 views
Skip to first unread message

papou

unread,
May 19, 2004, 9:50:15 AM5/19/04
to
Bonjour à tous et à toutes
Excel 2003
Je sèche totalement sur un problème que je ne comprend pas !
La ligne ci-dessous doit en théorie me générer un TCD sur le classeur actif,
hors elle provoque systématiquement une erreur N°5 (argument ou appel de
procédure incorrect).
Si je continue en pas à pas, pas de problème malgré l'erreur signalée !!
La variable DerLFiltre est bien renseignée
Dans mon VBA, les options de récupération des erreurs = Arrêt sur les
erreurs non gérées
?
Merci d'avance pour les pistes.

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

isabelle

unread,
May 19, 2004, 11:33:18 AM5/19/04
to
bonjour papou,

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

unread,
May 19, 2004, 11:38:32 AM5/19/04
to
il y a aussi que TableName est un argument facultatif, si c'est bien ça
le problème enlève le.

isabelle

papou a écrit :

Papou

unread,
May 21, 2004, 8:53:10 AM5/21/04
to
Bonjour Isabelle
Pardon pour le retard et merci pour tes réponses.
Malheureusement, ce n'est pas un problème lié au nom ni à l'option
TableName.
Je confirme qu'en continuant la procédure par F8 dans VBA, le TCD est
construit sans problème.
Je ne vais quand même pas utiliser un SendKeys dans VBA pour contourner
cette erreur !
Je continue à sécher totalement :-((

Cordialement
Pascal


"isabelle" <as.isab...@videotron.ca> a écrit dans le message de
news:40AB7F78...@videotron.ca...

isabelle

unread,
May 21, 2004, 9:19:09 AM5/21/04
to
re bonjour papou,

est ce que DerLFiltre est égal à 23 ?

isabelle

Papou a écrit :

isabelle

unread,
May 21, 2004, 9:43:55 AM5/21/04
to
re bonjour papou,

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

unread,
May 21, 2004, 11:13:15 AM5/21/04
to
autre test concluant, si la macro est dans le classeur de destination,
cela fonctionne.

isabelle

Papou a écrit :

papou

unread,
May 24, 2004, 9:00:06 AM5/24/04
to
Bonjour Isabelle
Bizarre, il me semblait avoir envoyé une réponse depuis chez mois, mais pas
de trace ?
Je viens enfin de réussir à construire mon TCD, en utilisant la méthode de
l'exemple fournit dans l'aide (Excel 2003)

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...

Papou

unread,
May 21, 2004, 9:22:19 AM5/21/04
to
Re-bonjour
J'ai honte : je viens de comprendre pourquoi je plantais systématiquement :
en fait je construisais un TCD sur un nombre de colonnes qui dépassait mes
données !
En modifiant les coordonnées de ma plage de données (SourceData), tout se
passe normalement.
J'ai bien fait de laisser tomber quelques jours avant de reprendre avec un
oeil "neuf".
Cette manie de focaliser sur une soit-disant erreur dans Excel sans prendre
le temps de remettre en cause ce que j'ai écrit !
Pardon encore

Cordialement
Pascal


"Papou" <otercecipa...@oterceciwanadoo.fr> a écrit dans le message de
news:uxhnZKzP...@TK2MSFTNGP12.phx.gbl...

0 new messages