[XL-2003] PivotTable.SourceData génére une erreur 1004 ? [Résolu]

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai un fichier Excel qui a un tableau croisé (TCD, PivotTable) qui lorsque je demande à voir la propriété SourceData génére une erreur 1004. Comme l'erreur 1004 est une erreur générique cela ne m'aide pas vraiment.

Ce TCD fonctionne si je demande une mise à jour. Il semble prendre ses données dans une base de données Oracle.

Lorsque j'ouvre l'assistant, je ne peux pas revenir en arrière pour changer la source.

Pour des fins de documentation, j'aimerai pouvoir imprimer la source de ce tableau mais je suis incapable de la voir.

Quelqu'un a une idée sur comment je pourrais procéder pour avoir mon info.

A+

[Arkham46]

bjr,

dans la fenêtre variables locales on voit quelque chose dans cette propriété?

pour une connection odbc j'ai un tableau avec les infos de connexion

[marot_r]

Arkham46.

Non, la fenêtre des variables indique la même chose que de pointer dessus ou de faire un debug.print de la propriété : "Erreur de l'application ou de l'objet".

Par contre j'ai une propriété MDX qui est renseignée avec un truc du genre SELECT NON EMPTY HIERARCHIZE(Except({AddCalculatedMembers(Except({AddCalculatedMembers(DrillDownLevel({[.

Je ne sais pas quoi en tirer.

A+

[Pierre Fauconnier]

Salut René,

Il faudrait voir si la connexion est OLE DB ou non

Envoyé par Aide VBA: PivotTable.SourceData, propriété

Cette propriété n'est pas disponible pour les sources de données OLE DB.

C'est peut-être une piste...

[marot_r]

Merci à vous :-).

J'ai finalement trouvé. La source est un cube et du coup elle n'a pas de sourceData.

Voici comment afficher les informations que je cherchais.

Code :

1
2
3
4
5
Private Sub InventorierPivotCache()
    Dim pc As PivotCache: For Each pc In ThisWorkbook.PivotCaches
        Debug.Print pc.Connection
    Next pc
End Sub

J'ai trouvé la solution ici :
Programming Excel with VBA and .NET By Jeff Webb, Steve Saunders
http://books.google.ca/books?id=9YyH...page&q&f=false

A+