Erreur d'exécution 5 - Invalid Argument ou Appel de Procédure

J'ai besoin d'aide avec cette macro. Chaque fois que je le lance, j'obtiens l'erreur ci-dessous. Je pensais que c'était une simple macro que j'ai pu avoir quelqu'un dans mon équipe pour en faire prendre moins de temps que ce qu'ils prenaient pour créer manuellement ce tableau croisé dynamique à chaque fois ils ont couru le rapport. Toutefois, cela ne fonctionne pas. Veuillez voir l'erreur ci-dessous et de le conseiller. Je m'enhardis et en italique à l'erreur.

Erreur d'exécution 5 - Invalid Argument ou Appel de Procédure

Sub LEDOTTR()
'
' LEDOTTR Macro
'

'
    Range("A87").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ***ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R87C1:R8214C25", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="LED OTTR!R1C1", TableName:="PivotTable6", _
        DefaultVersion:=xlPivotTableVersion14***
    Sheets("LED OTTR").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("PivotTable6").PivotFields("LED")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable6").PivotFields("Hierarchy name")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable6").PivotFields("LED").CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable6").PivotFields("LED")
        .PivotItems("LED Marine").Visible = False
        .PivotItems("LL48 Linear LED").Visible = False
        .PivotItems("Other").Visible = False
    End With
    ActiveSheet.PivotTables("PivotTable6").PivotFields("LED"). _
        EnableMultiplePageItems = True
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable6").PivotFields("   Late " & Chr(10) & "Indicator"), "Sum of    Late " & Chr(10) & "Indicator", _
        xlSum
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable6").PivotFields("Early /Ontime" & Chr(10) & "   Indicator"), _
        "Sum of Early /Ontime" & Chr(10) & "   Indicator", xlSum
End Sub
On dirait que vous pourriez avoir un problème en fournissant un nom à la table qui est une valeur fixe. Vous êtes en l'appelant PivotTable6 mais ce nom n'est disponible la première fois que vous créez le pivot. Après cela, vous aurez un choc.
Comment puis-je résoudre ce problème?

OriginalL'auteur user3067028 | 2015-05-29