macro excel erreur d'éxécution 5 Fermé

Question

Bonjour,

J'ai une erreur dans une macro excel, lors de la création d'un tableau croisé dynamique,
erreur d'éxecution '5'
Argument ou appel de procédure incorrect

A cet emplacement

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!L1C1:L10C2", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Feuil1!L7C8", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion12

Merci de votre aide

coinZZ · Accepted Answer

TROUVEEEEEEEER !

Je donne la réponse pour les curieux :)

C'est un probleme de langue ! je m'explique, mon excel est en Français, quand tu enregistre automatiquement un macro il note :
L2323C34343 mais la fonction attends R2323C34343

Il faut donc simplement remplacer L par R !

Merci encore de ton aide

gbinforme · Answer

bonjour

N'aurais-tu pas mis ta macro dans une feuille au lieu d'un module ?

gbinforme · Answer

bonjour

Regardes cette explication ici

coinZZ · Answer

Bonjour,

désolé de réveillé ce sujet qui veilli mais j'ai besoin d'un coup de main dans le meme domaine

J'ai crée une macro en automatique.
Elle génère un tableau croisé dynamique.

Jusque la rien de bien méchant !

Cependant cette macro refuse de fonctionné et renvoi l'erreur d'éxécution 5 !

Voici le bout de mon code qui déconne :

database = ActiveSheet.Name & "!L" & ActiveCell.Column & "C" & ActiveCell.Row

destination = ActiveSheet.Name & "!L1C5:L1048576C22"
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        database).CreatePivotTable(TableDestination:=destination, _
        TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion12)
End With

Pour faire simple ma macro parse un fichier, et j'ai besoin de faire un tableau juste apres! Le parsing ce passe très bien!
Dernier détail, les fichiers parsé on des "mise en page" identique mais de taille différente c'est pourquoi je "dynamise" le nom de l'onglet et l'emplacement du tableau croisé dynamique !!

j'ai vérifié par des message box, database et destination on les valeurs que je désir.

Merci d'avance pour votre aide !!

gbinforme · Answer

bonjour

database = ActiveSheet.Name & "!L" & ActiveCell.Column & "C" & ActiveCell.Row

Là il me semble que tu as mélangé la ligne dans la colonne et réciproquement ?

à mon avis, cela devrait mieux fonctionner ainsi :
destination = ActiveSheet.Name & "!L1C5"
Quand tu indiques la destination du tableau il ne faut donner que la position début car tu ne peux pas savoir la taille qu'il va occuper.

coinZZ · Answer

Merci pour ta réponse si rapide !

Déja tu as raison sur le faite que j'ai inversé ligne et colonne !!

J'ai besoin de petit complément pour la suite!

Déjà j'ai fais une erreur bête (comme toute les erreurs^^) !
J'ai inversé database et destination !
voici mon code en mieux^^

destination = ActiveSheet.Name & "!L" & ActiveCell.Row & "C" & ActiveCell.Column
database = ActiveSheet.Name & "!L1C5:L1048576C22"

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        database, Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=destination, TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion12

database doit avoir le : nom de la feuille ! ligne et colonne de début et de fin de colonne utile pour le TCD !
ici : feuille1!L1C5:L1048576C22
c'est a dire de la colonne E a la colonne V !

j'ai pourtant encore cette erreur d'éxécution 5 qui me rend fou !!

merci de ton aide

Ben · Answer

Bonjour à tous,

Cela fait plusieurs jours que je recherche une solution pour le même problème, c'est-à-dire "Erreur d'exécution 5 Argument ou appel de procédure incorrect".

Dans ma macro, je construit 4 TCD à parti d'un onglet "DATA".
Lorsque j'exécute le code une fois, tout se passe bien. Lorsque je relance l'exécution, l'erreur 5 arrive.
Pourtant, en pas à pas, il n'y a aucun problème, je peux relancer autant de fois que je veux. Pareil avec un point d'arrêt juste avant l'appel de la fonction de création des TCD.

Pouvez vous m'indiquer pourquoi cette erreur survient une fois sur 2?
Voici la partie du code qui plante:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Sheets("DATA").Range("A1").CurrentRegion).CreatePivotTable _
        TableDestination:="[RO_OTD.xls]TCD!R4C1", _
        TableName:="DFP Nombre"

Merci de votre aide!

klaradoc · Answer

Bonjour à tous, 

J'ai le même problème avec une erreur 5 que je ne comprends pas malgré tous les forums que j'ai lus. 
Je veux juste créer un tableau croisé dynamique dans la feuille "Volumes" du fichier "RA" à partir de la feuille d'à côté qui s'appelle "Sources - VOLUMES"...

Workbooks("RA.xls").PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "[RA.xls]Sources - VOLUMES!R3C1:R3550C18", Version:=xlPivotTableVersion15). _
        CreatePivotTable TableDestination:="[RA.xls]Volumes!R3C2", TableName:= _
        "TCD Volumes", DefaultVersion:=xlPivotTableVersion15

Macro excel erreur d'éxécution 5

8 réponses

Discussions similaires