Erreur récurrente inconnue

**Ledaf** · 19/09/2008, 12h21

Bonjour à tous

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

**alsimbad** · 19/09/2008, 15h59

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.

**Ledaf** · 19/09/2008, 16h09

Et comment fait-on pour changer ça?

**alsimbad** · 19/09/2008, 16h24

ç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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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