Bonjour,
Afin de ne pas alourdir un classeur, j'ai réalisé depuis plusieurs années diverses Macro créant automatiquement différents TCD.
Les macros tirent leur données source de deux onglets (macro distinctes) et créent le tableau sur un onglet vide nommé TCD.
Les codes suivant les données les données sources sont identiques.
Mais depuis hier pour les macro d'un des deux onglets (les macro de l'autre onglet sont toujours opérationnelles) ne fonctionnement plus...
"Erreur d'exécution 13" incompatibilité de type
Voici le code utilisé en copie: c'est la ligne "Set pc" qui bloque, si une bonne ame à une idée, mi je bloque ;-)
Merci
Sub XMA_Kilos()
'
' XMA_Kilos Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Dim ws As Worksheet, pc As PivotCache, TCD As PivotTable
Application.ScreenUpdating = False
Set ws = Sheets("TCD")
With ws
If .PivotTables.Count > 0 Then
.PivotTables(1).TableRange2.Delete
End If
End With
With Sheets("Transport")
Set pc = ThisWorkbook.PivotCaches.Add(xlDatabase, .Range("A1:AP" & .Range("A65536").End(xlUp).Row))
End With
Set TCD = pc.CreatePivotTable(ws.Range("A5"))
With TCD
.PivotFields("Mois").Orientation = xlRowField
.PivotFields("Année").Orientation = xlColumnField
.PivotFields("Fournisseur").Orientation = xlPageField
.PivotFields("Où").Orientation = xlPageField
.PivotFields("Espèce").Orientation = xlPageField
.RowGrand = False
.ColumnGrand = True
With .PivotFields("Kilo")
.Caption = "Kilos"
.Orientation = xlDataField
.Function = xlSum
.NumberFormat = "#,##; [Red]-#,##"
End With
End With
Sheets("TCD").Select
Range("E1").Select
End Sub
Afin de ne pas alourdir un classeur, j'ai réalisé depuis plusieurs années diverses Macro créant automatiquement différents TCD.
Les macros tirent leur données source de deux onglets (macro distinctes) et créent le tableau sur un onglet vide nommé TCD.
Les codes suivant les données les données sources sont identiques.
Mais depuis hier pour les macro d'un des deux onglets (les macro de l'autre onglet sont toujours opérationnelles) ne fonctionnement plus...
"Erreur d'exécution 13" incompatibilité de type
Voici le code utilisé en copie: c'est la ligne "Set pc" qui bloque, si une bonne ame à une idée, mi je bloque ;-)
Merci
Sub XMA_Kilos()
'
' XMA_Kilos Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Dim ws As Worksheet, pc As PivotCache, TCD As PivotTable
Application.ScreenUpdating = False
Set ws = Sheets("TCD")
With ws
If .PivotTables.Count > 0 Then
.PivotTables(1).TableRange2.Delete
End If
End With
With Sheets("Transport")
Set pc = ThisWorkbook.PivotCaches.Add(xlDatabase, .Range("A1:AP" & .Range("A65536").End(xlUp).Row))
End With
Set TCD = pc.CreatePivotTable(ws.Range("A5"))
With TCD
.PivotFields("Mois").Orientation = xlRowField
.PivotFields("Année").Orientation = xlColumnField
.PivotFields("Fournisseur").Orientation = xlPageField
.PivotFields("Où").Orientation = xlPageField
.PivotFields("Espèce").Orientation = xlPageField
.RowGrand = False
.ColumnGrand = True
With .PivotFields("Kilo")
.Caption = "Kilos"
.Orientation = xlDataField
.Function = xlSum
.NumberFormat = "#,##; [Red]-#,##"
End With
End With
Sheets("TCD").Select
Range("E1").Select
End Sub