Discussion :

[fny_bnfnt]

Bonjour à tous! Joyeuses fêtes au passage aussi

J'ai un probleme de macro dans VBA Excel :
Sur ma Feuille 1 (appelée "Jour"), j'ai un tableau, avec 3 colonnes:
colonne 1 => Nombre de personnes
colonne 2 => Compagnie aérienne
Je souhaite créer une macro qui créee un tableau croisé dynamique avec tous les éléments de ma colonne 1 et de ma colonne 2 sur une ma Feuille2 (appelée "Tableau").
Jusqu'ici rien de compliqué, mais dès que je lance la macro, j'ai un bug au niveau du code que j'ai mis en commentaire :

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
Sheets("Tableau").Select
    Range("E2").Select
'    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
'    "Tableau1[[#Tout];[Colonne1]:[Colonne2]]", Version:=xlPivotTableVersion12). _
'    CreatePivotTable TableDestination:="Tableau!R2C5", TableName:= _
'    "Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion12
    Sheets("Tableau").Select
    Cells(2, 5).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields( _
        "Colonne2")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique5").PivotFields("Colonne1"), _
        "Somme de Colonne1", xlSum
    ActiveWorkbook.ShowPivotTableFieldList = False

pouvez vous m'aider ?
Cordialement.

[helas]

Bonjour,
A mon avis le problème viendrait de la source des données

Code :

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

1
2
 
"Tableau1[[#Tout];[Colonne1]:[Colonne2]]"

je pense qu'avec ceci, il n'y a pas d'erreur

Code :

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

1
2
 
"Tableau1!R1C1:R100C100"

[fny_bnfnt]

Bonjour Helas!

Joyeux Noel!!
Je viens d'essayer votre code, cela ne fonctionne pas! il me dit ce message :
Impossible d'ouvrir le fichier source du tableau croisé dynamique C:\Users\....

J'ai bien mit au mot près "Tableau1!R1C1:R100C100"

[helas]

Ceci étant un exemple, il faut que R1C1:R100C100 corresponde à la zône de données utilisée par l'analyse croisée