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.
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
Comment puis-je résoudre ce problème?
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
Vous devez vous connecter pour publier un commentaire.
La réponse à votre problème est trouve ici.
Votre nom de feuille dans
TableDestination:="LED OTTR!R1C1"
doit être entouré de guillemets à l' dans l'ordre pour que cela fonctionneTableDestination:="'LED OTTR'!R1C1"
Vous allez également avoir des problèmes avec la copie nom si vous ne supprimez pas ce tableau croisé dynamique avant de réexécuter le code.
bon à entendre. Veuillez cocher la réponse (consulter le vote des boutons), de sorte que les autres personnes sachent ses résolus. Aide nous tous.
OriginalL'auteur Byron Wall