Discussion :

[medyrek]

Bonjour à vous

En ce moment j'ai vraiment du mal à générer un TCD en vba.
J'importe un fichier "DocumentExploitation.txt" dans mon classeur courant il s'agit d'un immense tableau et je souhaite à partir de la feuille "DocumentExploitation" de générer un TCD, j'ai du mal rien qu'à la création:

1) voici le code:

Code :

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

1
2
3
4
5
6
'...
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [DocumentExploitation!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
    TableDestination:="Feuil2!R3C1", _
    TableName:="Mon TCD"
'...

La j'ai une erreur :

erreur d'execution 1004 impossible de lire la propriété CurrentRegion de la clase Range

La je me dit ok ce n'est pas grave donc je lui donne une plage définie

2)

Code :

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

1
2
3
4
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "DocumentExploitation!R1C1:R16C5").CreatePivotTable _
    TableDestination:="Feuil2!R3C1", _
    TableName:="Mon TCD"

erreur:

Erreur d'exécution '5' Argument ou appel de procedure incorrect

Please Help
merci d'avance

[pgz]

Bonjour.

Avec le type xlDataBase, il faut, je crois, fournir une plage, pas une adresse (1) ni une chaîne de caractères (2).

Tu peux essayer

Code :

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

SourceData := ThisWorkbook.Worksheets("DocumentExploitation").Range("A1").CurrentRegion

Cordialement,

PGZ