Discussion :

[dut-dut]

Bonjour,
suite à un export de données vers Excel, mon client me demande de créer un tableau croisé dynamique. Dans Excel, le code suivant fonctionne très bien mais dans Access j'obtiens l'erreur '5' : Argument ou appel de procédure incorrect

Code :

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

1
2
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Détail_par_réf!R7C1:R2588C47").CreatePivotTable _
        TableDestination:="TCD_par_famille!R3C1", TableName:="TCD", DefaultVersion:=xlPivotTableVersion10

PS : merci d'éviter les réponses du type : "tu n'as qu'à faire ton analyse croisée dans Access puis exporter le résultat dans Excel", c'est le côté dynamique du tableau (pouvoir changer les filtres, etc...) qui intéresse mon client.

[dut-dut]

Re-bonjour,
j'ai finalement trouvé le fond du problème !

Access n'accepte pas la syntaxe du type "R7C1:R2588C47". Il faut donc de changer celle-ci comme dans la correction ci-dessous :

Code :

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

1
2
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Sheets("Détail_par_réf").Range("A7:AU2588")).CreatePivotTable _
        TableDestination:=Sheets("TCD_par_famille").Range("A3"), TableName:="TCD", DefaultVersion:=xlPivotTableVersion10

Je place le flag "Résolu" si jamais cela s'avère utile à quelqu'un d'autre.

@+

[Jean-Philippe André]

salut,

attention, quand tu utilises activeworkbook depuis Access, je ne garantis pas que:
- ActiveWorkbook soit correctement pris en compte par Access, passe plutot par ton objet Workbook que tu manipules en amont dans ton code pour etre certain de pas partir sur un classeur annexe.
- que les valeurs type xlDatabase soient avec les valeurs implementees dans Excel.

- tu passes par Access 2002, mais tu as une version 10 dans ton appel de table pivot xlPivotTableVersion10, n'est-ce pas un point bloquant ?

En esperant etre clair

[dut-dut]

@ jpcheck : C'est ce qu'on appelle des réponses simultanées...
Merci pour la contribution !