Macro de tableau croisé dynamique aboutit à l'erreur 'Invalid Procedure call or argument'

Si vous rencontrez des problèmes avec le logiciel de suite Microsoft Office tel-que Excel, Word ou Power-point posez vos questions ici.
Raef
Messages : 8
Inscription : jeu. mars 29, 2018 5:50 pm

Macro de tableau croisé dynamique aboutit à l'erreur 'Invalid Procedure call or argument'

Message par Raef » ven. juin 15, 2018 3:38 pm

Je suis au-delà de la frustration et j'ai désespérément besoin d'aide. J'ai utilisé ce code auparavant dans un autre classeur sans problème. Je ai essayé de le copier, en remplaçant les variables et les informations spécifiques au classeur pour le nouveau fichier, seulement pour courir dans cette erreur stupide (sur la ligne contenant 'Set objPT = ...'). J'ai même essayé de copier le code directement à partir d'un manuel Excel VBA pour créer un tableau croisé dynamique et toujours couru dans la même erreur stupide. Je ne peux pas comprendre ce que je fais mal.

Code : Tout sélectionner

Sub SetupPivotTable()
    
    Dim PTWS As Worksheet
    Dim objPT As PivotTable
    Dim objPC As PivotCache
    
    Range("Q3").Activate
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    bottomRow = Selection.Address
    
'    MsgBox bottomRow
    
    Range("A3", bottomRow).Select
    Selection.Name = "UTS_Data"

    Sheets.Add After:=Worksheets(Worksheets.Count)
    Set PTWS = ActiveSheet
    ActiveSheet.Name = "Graph"
    Sheet1.Activate

    Set objPC = ActiveWorkbook.PivotCaches.Create _
        (xlDatabase, "UTS_Data")
    Set objPT = objPC.CreatePivotTable(PTWS.Range("a3"), _
        TableName:="UTS_PT")
Alternativement, j'ai essayé d'utiliser ceci:

Code : Tout sélectionner

Set objPT = objPC.CreatePivotTable _
        TableDestination:="'Graph'!R3C1", TableName:="UTS_PT"
Et à la place, il a erré avec 'Fin prévue de la déclaration' sur 'TableDestination'

S'IL VOUS PLAÎT AIDE ...

Ali
Messages : 6
Inscription : ven. juin 15, 2018 3:29 pm

Re: Macro de tableau croisé dynamique aboutit à l'erreur 'Invalid Procedure call or argument'

Message par Ali » ven. juin 15, 2018 3:40 pm

Code : Tout sélectionner

Set objPC = ActiveWorkbook.PivotCaches.Create _
        (xlDatabase, "UTS_Data")
Cette partie regarde au loin. Essayer...

Code : Tout sélectionner

Set objPC = ActiveWorkbook.PivotCaches.Create _
    (xlDatabase, Range("UTS_Data"))
Autre que cela, sans exemple de classeur. C'est un peu dur de t'aider. Pour télécharger un fichier, utilisez le bouton «Go Advanced» situé en bas à droite du menu Quick Reply / Edit.
Trouvez l'hyperlien "Gérer les pièces jointes" et cliquez dessus. Il va lancer un nouvel onglet / fenêtre.

Répondre