Discussion :

[bigor44]

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 :

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

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

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

[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.

[bigor44]

Alors le message d'erreur, c'est:

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

meme avec le nom du TCD changé

[Daniel.C]

Est-ce que tu ne devrais pas mettre :

Code :

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

TableDestination:="Feuil1!R1C1"

au lieu de :

Code :

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

TableDestination:=Moisencours & "!R1C1"

[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 ?

[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".