Pivot table qui ne fonctionne pas

Bonjour à tous,

Je dois terminer mon fichier en faisant tourner un Pivot table (tableau dynamique).

Par facilité, je l'ai enregistré, mais lorsque je veux le relancer il m'indique tout le temps cette erreur :

"invalid procedure or argument"

Voici le code que excel m'a enregistré :

Sub PivotTable()
'
' PivotTable Macro
'

'
    Cells.Select
    Range("A2").Activate
    Sheets.Add
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "ActiveSheet", Version:= _
        xlPivotTableVersion15).CreatePivotTable TableDestination:="Sheet2!R3C1", _
        TableName:="PivotTable2", DefaultVersion:=xlPivotTableVersion15
    Sheets("Sheet2").Select
    Cells(3, 1).Select
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Sheet2!$A$3:$C$20")
End Sub

en mettant la flèche du Debug tout le temps sur "TableName:="PivotTable2", DefaultVersion:=xlPivotTableVersion15

"

J'ai eu beau changé toutes les versions, rien n'y fait.

Quelqu'un aurait-il une idée pour que cela fonctionne pour mes prochains projets ?

Merci d'avance

version 2013 en EN

Brut.

Bonjour,

Un début de réponse.

Le plus difficile est à venir.

ALT F8, exécuter la procédure.

Cdlt.

Merci Jean-Eric,

Il fonctionne bien avec le fichier que j'ai donné mais pas sur un autre.

Quels seraient les changements à apporter pour que cela fonctionne sur n'importe quel fichier (autre nom d'onglet, nombre de lignes différentes) ? le nombre de colonnes sera toujours le même par contre.

Merci !

Re,

Je pense à une solution qui nécessite de mettre la procédure dans le classeur de macros personnelles (PERSONAL.xlsb).

Ca te parle ?

Sinon, tu auras remarqué que le TCD et le GCD sont vides de tout.

Cdlt.

nota : le TCD s'adapte au dimensions de la feuille source.

Jean-Eric a écrit :

Re,

Je pense à une solution qui nécessite de mettre la procédure dans le classeur de macros personnelles (PERSONAL.xlsb).

Ca te parle ?

Sinon, tu auras remarqué que le TCD et le GCD sont vides de tout.

Cdlt.

nota : le TCD s'adapte au dimensions de la feuille source.

j'ai du aller voir sur Google ce que c'était, gros débutant spotted Donc ca ne me parle pas trop...

Il n'y a pas d'autres solutions ?

Bonjour,

Une autre solution, en exportant la procédure :

ALT F11, pour ouvrir l'éditeur.

Sélectionner le module 'Create_Pivot_Table_Chart'.

Clic-droit, Exporter un fichier... (choisir le chemin)

Dans un nouveau fichier :

ALT F11, pour ouvrir l'éditeur VBE.

Sélectionner 'Modules'.

Clic-droit, Importer un fichier...

Sélectionner le fichier Create_Pivot_Table_Chart.bas...

La procédure sera copiée dans le classeur.

Impératif ! Lancer la procédure à partir de la feuille comportant les données pour le TCD.

A te relire.

Cdlt.

Bonjour Jean-Eric,

merci d'avoir pris le temps !

J'ai tout suivi ce que tu as noté, mais il boque toujours sur "Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, rngPT)"

Je ne veux pas abuser de ton energie pour essayer de corriger. Je ne pensais pas que cela allait être compliqué.

Merci pour ton aide en tout cas !

Brut

Bonjour,

vérifie le nom des en-têtes de colonnes des données sources du TCD (pas de vide en l'occurrence).

Sinon envoie ton classeur réduit au minimum et anonymisé si nécessaire.

Cdlt.

Bonjour,

Ou en est-on de notre affaire ?

Cdlt.