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
 
...