Discussion :

[davyvba]

Bonjour,
J'essaye de résoudre mon problème depuis des heures..
Je ne comprend pas pourquoi ca marche pas..
Un peu d'aide Svp !!! :-)

JE veux créer un TCD dans "Rapport_MTM"
Ma source est dans "suivi des opérations DRF lyon"

Voici le code...

Code :

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

1
2
3
4
5
6
 
Workbooks("Rapport_MTM.xls").PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'[Suivi des opérations Pole DRF LYON.xls]Swap et Fi'!R1C1:R2000C61"). _
        CreatePivotTable TableDestination:="[Rapport_MTM.xls]MTM_Par_Suc!R13C1", _
        TableName:="MTM_Par_Suc_TCD", DefaultVersion:= _
        xlPivotTableVersion10

L'erreur est

Erreur d'éxécution '5'
Argument ou apel de procedure incorrect.

Je débute en VBA..
Merci d'avance

[mayekeul]

un pti cou de F1

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
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
    .Connection = _
        "OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National"
   .CommandType = xlCmdCube
   .CommandText = Array("Sales") 
   .MaintainConnection = True
    .CreatePivotTable TableDestination:=Range("A3"), _
        TableName:= "PivotTable1"
End With
With ActiveSheet.PivotTables("PivotTable1")
    .SmallGrid = False
    .PivotCache.RefreshPeriod = 0
    With .CubeFields("[state]")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With .CubeFields("[Measures].[Count Of au_id]")
        .Orientation = xlDataField
        .Position = 1
    End With
End With

et un pti coup d'enregistreur de macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet3!R33C3:R36C5", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Sheet3!R45C12", TableName:="PivotTable7", _
        DefaultVersion:=xlPivotTableVersion10
    Sheets("Sheet3").Select
    Cells(45, 12).Select
    With ActiveSheet.PivotTables("PivotTable7").PivotFields("foot ")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable7").AddDataField ActiveSheet.PivotTables( _
        "PivotTable7").PivotFields("5,00"), "Sum of 5,00", xlSum

[davyvba]

Salut
J'ai fait du F1 toute la matinée mais quand tu n'as pas le vocabulaire c'est un peu "compliqué".
Bref, Qd je fais un enregistreur de macro cc'est le code qui m'est donné, mais quand je lance ensuite la macro ds VBA, j'ai le message d'erreur indiqué ci dessus..
Bref c le serpent qui se mange la queue..
G encore besoin d'aide?
En gros que manque t'il dans mon code...

[Jean-Pierre49]

Bonjour

Je te joint un bout de code pour créer un TDC propre a chaque mise a jour

Les données sont dans une feuille nommée Données
Le tableau est dans une feuille nommées Tableau

Original non!

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
                            Dim TableauCroiséCache              As PivotCache
                            Dim TableauCroisé                   As PivotTable
                            Dim DerniereLigne                   As Integer
                            Dim DerniereColonne                 As Byte
                            Dim CompA                           As Integer
 
Application.ScreenUpdating = False
 
'On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Tableau").Delete
    Worksheets.Add
    ActiveSheet.Name = "Tableau"
    Application.DisplayAlerts = True
 
    Sheets("Donnees").Select
    Set TableauCroiséCache = ActiveWorkbook.PivotCaches.Add _
                            (SourceType:=xlDatabase, _
                            SourceData:=Range("A1").CurrentRegion.Address)
 
    Set TableauCroisé = TableauCroiséCache.CreatePivotTable _
                        (TableDestination:="'Tableau'!R5C2", _
                        TableName:="LeTableau")
 
    With TableauCroisé
        .PivotFields("CODEEMP").Orientation = xlRowField
        .PivotFields("CODEEMP").Caption = "N° Salarié"
        .PivotFields("N° Salarié").Subtotals(1) = False
        .PivotFields("N° Salarié").AutoSort xlAscending, "N° Salarié"
 
        .PivotFields("NOM-prenom").Orientation = xlRowField
 
        .PivotFields("HEURE").Orientation = xlRowField
        .PivotFields("HEURE").Subtotals(1) = False
        .PivotFields("HEURE").PivotItems("").Visible = False
 
        .PivotFields("DESIGNATION 200").Orientation = xlRowField
 
        .PivotFields("SEMAINE").Orientation = xlColumnField
        .PivotFields("SEMAINE").AutoSort xlAscending, "SEMAINE"
 
        .PivotFields("NBHRS").Orientation = xlDataField
        .PivotFields("Somme de NBHRS").Caption = "Total Heures"
        .PivotFields("Total Heures").NumberFormat = "0.00"" h"""
        .PivotFields("Total Heures").Caption = ""
    End With

inspire en toi

Ca marche impeccable à chaque paie (et pour ça je ne rigole pas)