Créer un TCD à destinations variables

Version imprimable

Bonjour,

je suis un autodidacte du VBA, mais la je galère !
J'essaie de créer un TCD dans un classeur ou le nom de la feuille est variable et les données sont dans un autre fichier.
Je suis parti d'une macro enregistrée qui fonctionne, mais voila, pas mon script.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CreerTCD()
Dim Moisencours As String
Dim Lr As Integer
Moisencours = UCase(Mid(Format(Date, "Mmmm"), 1, 1)) & Mid(Format(Date, "Mmmm"), 2) & " " & Format(Date, "YYYY")
 
Call Nouvelle_Feuille
Workbooks.Open Filename:="\\U\Sollicitations\Données.xlsx"
Worksheets(Moisencours).Activate
Lr = Lastrow("A")
Workbooks("Stats.xlsm").Activate
MsgBox "[Données.xlsx]" & Moisencours & "!R1C1:R" & Lr & "C9"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "[Données.xlsx]" & Moisencours & "!R1C1:R" & Lr & "C9", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:=Moisencours & "!R1C1", TableName:= _
        "TCD1", DefaultVersion:=xlPivotTableVersion12
'   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
'       "[Données.xlsx]Janvier 2013!R1C1:R13C9", Version:=xlPivotTableVersion12). _
'       CreatePivotTable TableDestination:="Feuil1!R1C1", TableName:= _
'       "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion12

La partie en commentaire est celle enregistrée automatiquement

Lastrow est une fonction que j'ai crée:

Code:

1
2
3
Function Lastrow(Col As String) As Integer
Lastrow = Range(Col & Rows.Count).End(xlUp).Row
End Function

Alors svp, aidez moi à comprendre mon erreur parce que la, je suis perdu.

Merci d'avance

07/01/2013, 14h19
Daniel.C

Bonjour,

Quel est le message d'erreur ? Essaie de changer le nom du TCD, il ne peut pas y en avoir 2 avec le même nom sur la même feuille.
07/01/2013, 15h11
bigor44

Alors le message d'erreur, c'est:

Citation:

Erreur d'execution 5: Argument ou appel de procédure incorrect.

meme avec le nom du TCD changé
07/01/2013, 15h59
Daniel.C

Est-ce que tu ne devrais pas mettre :

Code:

TableDestination:="Feuil1!R1C1"

au lieu de :

Code:

TableDestination:=Moisencours & "!R1C1"
07/01/2013, 16h21
bigor44

C'est exactement ce qui est dans mon code ...
La partie en commentaire me servant d'exemple.
Edit: j'avais mal lu, c'est bien de l'inverse dont j'ai besoin.
En effet, il y a une feuille par mois, et cela va donc changer chaque mois, d'ou la nécessité de mettre une variable à la place du nom de la feuille.

J'ai fait le test quand même et ca marche !!!
Mais c'est pas ce que j'ai besoin ...
une autre solution ?
07/01/2013, 16h56
Daniel.C

Oui, mais ou j'ai raté quelque chose, ou la feuille MoisEnCours se trouve sur le classeur distant, or dans le paramètre "TableDestination", tu précises le nom de la feuille, mais pas celui du classeur, or le classeur actif est "Stats.xlsm", pas "Données.xlsx".
07/01/2013, 17h03
bigor44

Il y a une feuille moisencours dans les deux tableaux.
Et c'est bien dans le classeur stats que le tcd doit être créé.
la source étant dans la feuille moisencours du classeur Données
07/01/2013, 17h32
Daniel.C

Essaie de refaire un coup d'enregistreur de macros avec les vraies feuilles ppour voir ce que tu obtiens. Est-ce qu'il y a deux ou trois classeurs impactés ? Dans quel classeur se trouve la macro .

Bonjour,

Désolé pour le délai, j'ai fait une petite pose sur ce projet:
Donc, l'enregistreur donne ceci avec les vraies feuilles:
Code:

1 2 3 4 5 Workbooks("Stats.xlsm").Activate ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "[Données.xlsx]Janvier 2013!R1C1:R81C9", Version:=xlPivotTableVersion12). _ CreatePivotTable TableDestination:="Janvier 2013!R1C1", TableName:= _ "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion12
La macro se trouve dans le classeur Stats. Données ne contient aucune macro, mais est alimenté par un autre classeur qui contient des macros

Et ca ne marche pas même avec ce code ....

25/01/2013, 13h43
Daniel.C

Bonjour,

Peux-tu mettre en pièce jointe - sans données confidentielles - le classeur Données.xlsx (juste la feuille concernée) ?
31/01/2013, 16h55
bigor44

1 pièce(s) jointe(s)

Bonjour,

Encore merci pour tes réponses

Voici le classeur en pièce jointe,
Il ne contient aucune macro

EDIT: classeur modifié
04/02/2013, 16h51
Daniel.C

Désolé, je n'arrive pas à le faire fonctionner. Peut-être est-ce que tu n'as pas le droit de le faire ? J'espère que quelqu'un de plus malin pourra te dépanner. Envoie un SOS en MP à 78Chris. Il connait particulièrement bien les TCD.

Bonjour

Je n'ai pas compris si la macro est dans le classeur Stats ou dans un autre classeur mais peu importe

Ceci semble fonctionner
Code:

1 2 3 'Méthode PivotCaches.Create Set Moncache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="[Données.xlsx]" & Moisencours & "!R1C1:R" & Lr & "C9", Version:=xlPivotTableVersion12) Worksheets(Moisencours).PivotTables.Add PivotCache:=Moncache, TableDestination:=Worksheets(Moisencours).Range("a3"), TableName:="MonTCD"
au lieu de

Code:

ActiveWorkbook.PivotCaches.Create...

04/02/2013, 20h17
Daniel.C

Bonjour,

La classe... Mais qu'est-ce qui t'a mis sur cette piste, si ce n'est pas indiscret ?
04/02/2013, 20h28
78chris

Bonjour

En fait je connais bien les TCD mais pas trop le VBA qui les concernent.

Cependant avec un collègue on a commencé à "jouer" avec le VBA et surtout à essayer de comprendre et utiliser les classes.

Comme il avait envie de tester les TCD, j'avais commencé à regarder comment ça marche en VBA et remarqué que 2007-2010, du fait du cache unique, ne semble pas marcher comme 2003.

J'avais noté ces codes qui semblaient plus adaptés à 2007-2010 dans un document que j'ai gardé sous le coude depuis, ce produit étant en stand by.

N'arrivant pas à faire marcher non plus un code enregistré, j'ai repensé à ces notes...

Voilà tu sais tout...
04/02/2013, 21h34
Daniel.C

Chapeau !
06/02/2013, 15h17
bigor44

Merci beaucoup, je vérifie ca dès que possible, je vous fait un retour.
Pour info, la macro est dans stats