Erreur récurrente inconnue

Bonjour à tous

Voilà, j'ai une erreur récurrente que je n'arrive pas à comprendre.
Voici le code où cela beugue:

Code:

---

1 2 3 4

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ Selection).CreatePivotTable TableDestination:= _ "R2C6", TableName:="Tableau croisé dynamique1", _ DefaultVersion:=xlPivotTableVersion10

---

A chaque fois que j'active ma macro, cela beugue sur ce code et affiche le message d'erreur suivant:
Erreur d'éxécution '5':
Argument ou appel de procédure incorrect.

Le plus intriguant c'est que lorsque j'appuie sur le bouton continuer, la macro continue comme si il n'y avait pas eu de beug!

Autre point très intriguant, c'est lorsque que je teste cette macro sur un fichier Excel où il n'y a uniquement cette macro, cela marche très bien et il n'y a pas de beug!

Avez vous une idée?

dis comme ça, c'est pas vraiment très clair, mais je pense que tu essaie de créer un tcd. la premiere fois que tu le cré, il s'appele tableaucroisédynamyque1 mais a la seconde fois, le tcd1 existe déja donc il genere une erreur.

Et comment fait-on pour changer ça?

ça dépent de ce que tu cherche a faire. si le but est de créer un tcd, en théorie, tu n'as a le faire q'une fois. si le but est d'en créer plusieurs, tu incrémente une variable.
mais en général, si tu ne vaux pas etre embeter, tu nomme toi même le tcd que tu crée, comme ça, tu travailles avec le bon objet. je te met un exemple d'un tcd que j'avais fais, je me rappalle plus exactement sa fonction, mais la syntaxe, c'est la syntaxe, hein.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'création du TCD Set alfa = cible.Sheets(2) Set oméga = cible.Sheets(1) tablosource = alfa.[A1].CurrentRegion.Address(, , xlR1C1, True) oméga.Cells.Clear ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:=tablosource).CreatePivotTable _ TableDestination:="synthèse!R3C1", _ TableName:="prénom" ActiveWorkbook.ShowPivotTableFieldList = True With oméga.PivotTables("prénom").PivotFields("Prénoms") .Orientation = xlRowField .Position = 1 End With oméga.PivotTables("prénom").AddDataField oméga. _ PivotTables("prénom").PivotFields("Nombre"), _ "par prénoms", xlSum Application.CommandBars("PivotTable").Visible = False ActiveWorkbook.ShowPivotTableFieldList = False

---

Merci beaucoup ça marche!

Euh désolé de revenir à la charge, mais j'ai de nouveau activer ma macro et ça ne marche pas à nouveau!

là, je crois qu'il va falloir dire ce que tu fais exactement.
si il s'agit d'une création, même si tu nomme le tableau, tu ne peux l'executer qu'une fois. le fait de le nommer va etre utile par exemple pour le dimensionner ou l'effacer. a la limite si tu dois le recréer, commence par l'effacer. chose facile quand tu connais son nom