Création de TCD en VBA

Version imprimable

Bonjour,

Dans le cadre d'une création d'un TCD à partir d'une plage de données variable j'obtiens le message d'erreur suivant:
"Erreur d'exécution 5, Argument ou appel de procédure incorrect"

Voici le début de mon code qui génère cette erreur:
Code:

1 2 3 4 5 6 Sub Macro1() Feuil1.Range("A1:D" & [A65000].End(xlUp).Row).Name = "base" ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=_ base).CreatePivotTable TableDestination:="Feuil2!R1C1", TableName:= _ "Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion14
Merci de me donner un coup de main.

Bien à vous.

08/06/2011, 19h06
pgz

Bonsoir.

Je suppose que tu as une erreur dès la première ligne. L'objet Range n'a pas de propriété Name.

SI tu veux créer un nom défini, regarde la collections Names du classeur et sa méthode Add.

Cordialement,

PGZ

Je pense avoir résolu le probleme de sélection et de nom de la plage, j'ai néanmoins le meme message d'erreur qui apparait.
Possible que le nom de la plage soit "base" ne soit pas reconnu.

Merci de m'aider à m'en dépétrer.

By the way merci pour ton aide PGZ.

Voici le code:
Code:

1 2 3 4 5 Dim base As Range Set base = Range("A1").CurrentRegion ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "base").CreatePivotTable TableDestination:="Feuil2!R1C1", TableName:= _ "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
Nouveau code, seule la création du tableau coince (honnetement je n'en ai aucune idée).
Merci de m'éclairer et de m'expliquer pourquoi.
Cela vient peut etre du nom des feuilles ou du classeur (Feuil1 contenant la base de données, Feuil2 censée réceptionner le TCD, le nom du classeur:~0397118.csv)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Public Sub M() 'créer un tableau Dim Feuille As String Feuille = ActiveSheet.Name Sheets(Feuille).Activate Dim DataR As Long Dim DataC As Integer Dim Source As String Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select DataR = Selection.CurrentRegion.Rows.Count DataC = Selection.CurrentRegion.Columns.Count Source = "feuill1!R1C1:R" & CStr(DataR) & "C" & CStr(DataC) 'Partie qui merde ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ Source).CreatePivotTable TableDestination:="Feuil2!R1C1", TableName:= _ "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14 End Sub

09/06/2011, 15h43
pgz

Bonjour.

Pourquoi, pour créer un TCD, utilises-tu la collections PivotCaches (qui n'a pas de méthode Add) plutôt que la collection Pivottables?

PGZ

Hello!

Autre question : es-tu vraiment obligé de créer ton TCD par code plutôt que manuellement une seule fois?

PGZ

Pour ta premiere question, j'ai utilisé l'enregistreur de macro et j'ai modifié certaines lignes car je suis novice en la matière ( depuis quelques jours).
J'ai remplacé PivotCaches par pivotTables mais rien n'y fait, erreur d'execution 438.

Voici le code:
Code:

1 2 3 4 ActiveWorkbook.PivotTables.Add(SourceType:=xlDatabase, SourceData:= _ Source).CreatePivotTable TableDestination:="Feuil2!R1C1", TableName:= _ "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
En ce qui cvoncerne ta deuxieme question j'effectue la meme tache tout les jours donc oui je prefere tout automatiser, de plus je considère cette macro comme un entrainement.

Merci pour ton aide PGZ car la je commence à desepérer.

09/06/2011, 19h42
pgz

Pardon d'insister, mais pourquoi tu refais le même TCD chaque jour?

PGZ

Bonsoir.

Comme je te le disais, la méthode Add n'existe pas pour la collection PivotCaches.

Si c'est pour le fun OK, mais dans la plupart des cas, ce n'est pas terrible de recréer les TCD.

Dans ton dernier code, essaie en remplaçant "Add" par "Create".

Ensuite, le nom que tu donnes peut poser pb. Si tu n'as aucun autre TCD, essaie un nom comme "MonTCD".

Regarde cela et raconte...

COrdialement,

PGZ
10/06/2011, 10h39
mathieubonnefontiae

vba

Ainsi donc j'ai tenté de modifier add par create, PivotTables par PivotCaches en remplacant le nom du tableau par monTCD, en vain:

"Erreur d'execution 5, Appel de procédure ou d'argument incorrect".

What's next?
10/06/2011, 10h58
pgz

Bonjour.

Peux-tu donner le dernier code que tu as essayé?

PGZ

Le voici:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Sub M()
 
'créer un tableau 
 
    Dim Feuille As String
    Feuille = ActiveSheet.Name
 
    Sheets(Feuille).Activate
 
    Dim DataR As Long
    Dim DataC As Integer
    Dim Source As String
 
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
 
    DataR = Selection.CurrentRegion.Rows.Count
    DataC = Selection.CurrentRegion.Columns.Count
    Source = "feuill1!R1C1:R" & CStr(DataR) & "C" & CStr(DataC)
 
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    Source).CreatePivotTable TableDestination:="Feuil2!R1C1", TableName:= _
    "MonTCD", DefaultVersion:=xlPivotTableVersion14

Et j'ai une deuxième erreur:

Code:

1
2
3
ActiveSheet.PivotTables("Mon TCD").AddDataField ActiveSheet. _
        PivotTables("Mon TCD").PivotFields("Volume"), _
        "Somme de Volume", xlSum

Bonjour.

Pour créer le TCD, essaie cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub M()
    Dim Feuille As String
    Dim DataR As Long
    Dim DataC As Integer
    Dim Source As String
    Dim Destination As String
    Dim oSh As Excel.Worksheet
    Dim oTCD As Excel.PivotTable
 
'créer un tableau
 
Set oSh = ActiveSheet
 
DataR = oSh.Range("A1").End(xlDown).Row
DataC = oSh.Range("A1").End(xlToRight).Column
Source = "'" & oSh.Name & "'!R1C1:R" & DataR & "C" & DataC
Destination = "Feuil2!R1C1"
 
Debug.Print Source
 
Set oTCD = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Source).CreatePivotTable(Destination)
Debug.Print "TCD créé : " & oTCD.Name
 
Set oSh = Nothing
Set oTCD = Nothing
 
End Sub

Cordialement,

PGZ

10/06/2011, 17h03
pgz

Re,

Peux-tu redonner ton code, là où tu en es, ainsi que le résultat du Debug.print, et les erreurs éventuelles?

PGZ