web-dev-qa-db-fra.com

Erreur d'exécution 5 - Appel ou argument de procédure non valide

J'ai besoin d'aide avec cette macro. Chaque fois que je l'exécute, j'obtiens l'erreur ci-dessous. Je pensais que c'était une simple macro que je pouvais faire utiliser par n'importe qui de mon équipe pour que cela prenne moins de temps qu'ils ne le faisaient pour créer manuellement ce tableau croisé dynamique chaque fois qu'ils exécutaient le rapport. Cependant, cela ne fonctionne pas. Veuillez voir l'erreur ci-dessous et conseiller. J'ai encouragé et mis en italique l'erreur.

Error

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
excelvbaexcel-vbaruntime-error
6
user3067028

La réponse à votre problème est située ici .

Le nom de votre feuille dans TableDestination:="LED OTTR!R1C1" doit être entouré de guillemets simples pour que cela fonctionne TableDestination:="'LED OTTR'!R1C1"

Vous aurez également des problèmes avec le nom dupliqué si vous ne supprimez pas ce tableau croisé dynamique avant de réexécuter le code.

8
Byron Wall