Discussion :

[78580400]

Bonjour.
J'ai une grosse base Access avec notamment une colonne que l'on va nommer NUMERO.
Ce champs contient par exemple les nombres de 1 à 100.
J'ai un fichier excel avec un tableau croisé dynamique qui pointe sur la base Access via une requete qui ne ramene les données que pour NUMERO =1 (where)
ce fichier s'appelle par exemple tcd1.

Je voudrais par une macrovba créer tcd2, tcd3...tcd100; c'est à dire une macro qui va chercher les données pour NUMERO=1, actualiser le tcd, l'enregistrer sous tcd1, puis va chercher les données pour NUMERO=2, actualiser le tcd, l'enregistrer sous tcd2...jusqu'à 100.

Est ce faisable facilement? quelles sont les instructions à utiliser ou avez vous un code déjà tout détaillé?
La version d'excel est 2003 il me semble.

Merci d'avance.

[bellande]

Bonjour,

Avec l'enregistreur de macros, il est possible de voir ce que donne l'affichage d'un tcd issu d'une base access donc d'une source de données externes.

Voici un exemple qu'il faudra bien sur refaire pour votre bd access :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
        .Connection = Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=D:\USERS\PAUL\MES DOCUMENTS\TEST.MDB;DefaultDir=D:\USERS\PAUL\MES DOCUMENTS" _
        ), Array("s;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"))
        .CommandType = xlCmdSql
        .CommandText = Array( _
        "SELECT tableau.Année, tableau.Région, tableau.`Effectif total`" & Chr(13) & "" & Chr(10) & "FROM `D:\USERS\PAUL\MES DOCUMENTS\TEST`.tableau tableau" _
        )
        .CreatePivotTable TableDestination:="[Classeur3]Feuil1!R3C1", TableName _
        :="Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Année")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Région")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique3").PivotFields("Effectif total"), _
        "Somme de Effectif total", xlSum
    ActiveWorkbook.ShowPivotTableFieldList = False

L'enregistrement de la macro pourra également comporter la mise à jour, le filtrage sur une valeur et l'enregistrement.

Le filtrage donne des choses de ce genre :

Code :

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

1
2
3
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Année")
        .PivotItems("2011").Visible = False
    End With

Il faudra donc au moins une variable (peut-être chaine) pour paramétrer les actions sur le tdc.

J'espère que cela pourra vous aider à démarrer.