Macro excel erreur d'éxécution 5

bonjour

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

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!

bonjour

Regardes cette explication ici

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

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 !!

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.

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