Tableaux Croisés Dynamique en VBA

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:

---

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 :

Citation:

---

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:

---

1 2 3 4

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

---

erreur:

Citation:

---

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

---

Please Help
merci d'avance

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:

---

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

---

Cordialement,

PGZ