Discussion :

[Nico412]

Bonjour,

Je suis entrain de migrer des macros de XL2003 vers XL2007.
Une d'entre elles me pose lorsque le code arrive sur la ligne PivotCaches, j'ai un erreur "13- incompatibilité de type"
Est ce que vous auriez des pistes de résolution ?

Merci

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
 
Sub mafonction()
On Error GoTo Err_mafonction
 
Dim TabCDyn, TabCDyn2, TabCDyn3 As PivotTable
Dim sIteration As PivotItem
Dim sChaine As String
Dim sDateTitre As String
 
 
    sDateTitre = Mid$(gsDatDeb, 7, 2) & "/" & Mid$(gsDatDeb, 5, 2) & "/" & Mid$(gsDatDeb, 1, 4)
 
    Windows(gsFicRes).Activate
    Sheets("Manutentions").Select
 
 
  erreur ---->  Set TabCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
                            SourceData:=ActiveWorkbook.Sheets("Manutentions").Range(Columns(1), Columns(25)))
 
    Set TabCDyn = TabCache.CreatePivotTable(TableDestination:="", DefaultVersion:=xlPivotTableVersion10)
 
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
 
...

[Daniel.C]

Bonjour,

Remplace ".Add" par "Create". Regarde l'aide VBA sur le sujet.

[Nico412]

Bonjour Daniel,

Merci de prendre le temps de me répondre.

J'avais déjà fait le test mais je l'ai refait au cas ou...

J'ai remplacé la ligne par :

Code :

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

1
2
3
Set TabCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
                            SourceData:=ActiveWorkbook.Sheets("Manutentions").Range(Columns(1), Columns(25)), _
                            Version:=xlPivotTableVersion10)

J'ai toujours le message d'erreur...

[Daniel.C]

Change la version :

Code :

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

Version:=xlPivotTableVersion12

[Nico412]

Même résultat.

Code :

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

1
2
3
4
5
6
 
Set TabCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
                            SourceData:=ActiveWorkbook.Sheets("Manutentions").Range(Columns(1), Columns(25)), _
                            Version:=xlPivotTableVersion12)
 
    Set TabCDyn = TabCache.CreatePivotTable(TableDestination:="", DefaultVersion:=xlPivotTableVersion12)

[Daniel.C]

Essaie de créer ton TCD manuellement avec l'enregistreur de macros.

[Nico412]

En refaisant (en partie) l'enregistrement de la macro, j'obtient le code suisvant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Windows(gsFicRes).Activate
    Sheets.Add.Name = "Temp"
    Sheets("Manutentions").Select
 
 
    Set TabCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
                            SourceData:=ActiveWorkbook.Sheets("Manutentions!R1C14:R1112C14"), _
                            Version:=xlPivotTableVersion12)
 
    Set TabCDyn = TabCache.CreatePivotTable(TableDestination:="Temp!R1C1", _
                    TableName:="TDC", _
                    DefaultVersion:=xlPivotTableVersion12)

J'ai maintenant l'erreur 9 - L'indice n'appartient pas à la sélection...

[Nico412]

ça y est, maintenant ça passe. J'ai mal réinterprété le code quand j'ai refait l'enregistrement de la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Windows(gsFicRes).Activate
    Sheets.Add.Name = "Temp"
    Sheets("Manutentions").Select
 
 
    Set TabCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
                            SourceData:="Manutentions!R1C14:R1048576C25", _
                            Version:=xlPivotTableVersion12)
 
    Set TabCDyn = TabCache.CreatePivotTable(TableDestination:="Temp!R1C1", _
                    TableName:="TDC", _
                    DefaultVersion:=xlPivotTableVersion12)

Merci de ton aide Daniel !