Tableau Croisé Dynamique dans Excel, en VBA depuis ACCESS

Question

Bonjour &#224; Toutes et &#224; tous,


J'ai besoin d'un petit coup de main...


Je suis entrain de d&#233;velopper une petite appli en VBA sous Access. Cette appli lance des requetes dans mes tables, en fonction de mes besoin, puis elle ouvre Excel, colle les donn&#233;es de mes requetes dans des feuilles excel. Le but &#233;tant d'ensuite faire des graphes dans Excel (j'ai pas le choix, c'est la demande, format Excel).


Certains graphes mettent en &#233;vidences plus de deux donn&#233;es. Ces graphes analysent un r&#233;seau de t&#233;l&#233;phonie (Ex : Abscisse, les N&#176; de semaines, ordonn&#233;es le Nb de Communications,et 3 courbes repr&#233;sentant chacune un des 3 Type de Communication (local, National vers Portables).Donc sur ma feuille excel, en plus d'avoir le graphe il me faut un Tableau Crois&#233; Dynamique !!!


Lorsque mes donn&#233;es sont arriv&#233;es dans Excel (via mon code depuis access), j'arrive &#224; faire le TCD de ces donn&#233;es &#224; la main, si je l'enregistre en Macro, j'arrive &#224; le lancer en auto depuis Excel... J'ai pomp&#233; le code de cette macro et essaye de l'ajouter &#224; mon code d'appli, pour g&#233;n&#233;rer directement le TCD depuis mon Appli acces, mais la, ca ne marche pas.... si qq'un voit le Pb, je suis preneur, il faut que je finisse cette appli pour la fin du mois... je suis mal...


les def plus haut sont :
"""""""""""""""""
  Set xlFichier = CreateObject("Excel.Application")
  Set xlClasseur = xlFichier.Workbooks.Add
  Set xlfeuille = xlClasseur.Worksheets(1)
"""""""""""""""""
D&#233;ja le premier paragraphe ne passe pas
Il me met un joli :
"Propri&#233;t&#233; ou m&#233;thode non g&#233;r&#233; par cet Objet"


c'est la que sa merde......::::
""""""""""""""""""""""""""""""""


    xlClasseur.Worksheets("Ensemble des Usages").PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Ensemble des Usages'!R1C1:R50C3").CreatePivotTable TableDestination:= _
        "'[Analyse Com.xls]Ensemble des Usages'!R3C4" _
        , TableName:="Tableau crois&#233; dynamique5", DefaultVersion:= _
        xlPivotTableVersion10



    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tableau crois&#233; dynamique5").PivotFields("Semaine" _
        )
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau crois&#233; dynamique5").PivotFields( _
        "Type de COM")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau crois&#233; dynamique5").AddDataField ActiveSheet. _
        PivotTables("Tableau crois&#233; dynamique5").PivotFields("Nb de COM"), _
        "Somme de Nb de COM", xlSum
    ActiveWorkbook.ShowPivotTableFieldList = False



""""""""""""""""""""""""""""""""""""""""""""""""""



A vrai dire je ne sais pas si ce que j'essaye de faire est possible, si vous avez une id&#233;e, je vous remercie d'avance....

JCDussDuss

Molenn · Answer

1/
Pour ce message là :"Propriété ou méthode non géré par cet Objet"
=> il faut que dans l'éditeur VBA, tu déclares Excel en référence ( Menu Outils\référence\Microsoft Excel 11.0 Object Library si tu es en ACCESS 2003)
En déclarant la référence déjà, ça suffira peut être à faire fonctionner le reste, le code est peut être bon, je ne l'ai aps regardé encore.

2/
Ensuite, une petite réflexion : 
Les données que tu exportes sont toujours de la même forme ? (le contenu peut changer, le nombre d'enregistrement aussi, mais tes différentes colonnes ?)
Parce que le plus simple, c'est encore je pense de faire un modèle de fichier Excel, une feuille dans laquelle tu colleras à chaque fois tes données (exporte manuellement une fois une requête pour faire la première mouture) et crée ton tableau croisé dynamique sur ces données pour définir un tableau de référence.

Ensuite, ton code ACCESS n'a plus qu'à gérer 3 choses :
1 - Ouverture du fichier excel modèle.
2 - Exportation de la requête dans le modèle
3 - Rafraîchir les données.

Tu peux faire la même chose à partir d'un bouton dans EXCEL :
1 - Importation de la requête à l'endroit voulu.
2 - Rafraîchir la liaison avec la requête.

A toi de voir quelles méthodes tu préfères.

Molenn

Tableau Croisé Dynamique dans Excel, en VBA depuis ACCESS

1 réponse

Discussions similaires