Discussion :

[Benwad]

Bonjour , deouis quelques jours je m'obstine à créer un TCD mais je n'y parviens pas
voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Page = ActiveWorkbook.ActiveSheet.Name
Sheets(Page).Range("A7").CurrentRegion.Select
vTableau = Page + "!" + Selection.Address(ReferenceStyle:=xlR1C1)
 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
    SourceData:=Page & "!" & vTableau).CreatePivotTable
    TableDestination:=Page & "!" & "R1C13", _
    TableName:="TCD" & Page,

En fait, je détermine la variable "vTableau" qui correspond à ma source. J'ai créé une variable car je veux créer un TCD à chaque feuille créée.

Et voici mon message d'erreur :

Code :

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

1
2
erreur d'execution "5"
Argument ou appel de procédure incorrect

De plus pensez vous qu'il soit plus judicieux de créer un autre bouton de commande pour rafraichir mon TCD ou il vaut le faire à la suite du code de création de mon TCD

Merci pour votre aide

[ouskel'n'or]

Bonjour Benwad,
Tu as ça dans la FAQ Excel. Fais une recherche sur "Tableau croisé dynamique"
Bonne journée

[Benwad]

salut ouskel'n'or,

C'est ce que j'ai fait dans un premier temps, mais je ne trouve pas mon erreur,
je vais essayer de nouveau, mais si tu as une idée n'hésites pas...
Merci

[ouskel'n'or]

Ok ! Déjà, une chose m'intrigue. Tu mets

vTableau = Page + "!" + Selection.Address(ReferenceStyle:=xlR1C1)

et dans le code suivant, tu remets

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=Page & "!" & vTableau).CreatePivotTable

Ne faut-t-il pas simplement mettre

Code :

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

1
2
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=vTableau).CreatePivotTable

Sinon tu répètes deux fois Page, non ?
Pas testé, simplement une question de logique
A+

[Benwad]

j'ai essayé mais j'ai toujours le même message:
"Argument ou appel de procedure incorrect"

Je ne comprend pas ...

[ouskel'n'or]

Fais du pas à pas (tu te places dans la macro et tu fais F8) et regarde ce qu'il y a dans vTableau. De mon côté, je testerais

Code :

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

1
2
3
4
5
6
    Page = ActiveWorkbook.ActiveSheet.Name
    Sheets(Page).Range("A7").CurrentRegion.Select
    vTableau = Selection.Address(0,0)
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
        SourceData:=Page & "!" & vTableau).CreatePivotTable _
        Tabledestination... etc

Sans avoir testé, ça me semblerait plus orthodoxe.

[Benwad]

bonjour, j'ai bien fait le mode pas à pas (F8) et la variable vTableau prend la valeur suivante : "Fevrier 2008!R7C1:R8C8". C'est bien la valeur de mon tableau de données.
Et j'ai toujours le même message
"argument ou appel de procédure incorrect"
Avez vous une explication qui pourrait faire avancer mon schmilblic? merci

[Benwad]

excuse moi, mais je ne comprend pas ce que tu veux dire

peux tu m'apporter plus de précisions

Merci

[Benwad]

Ah !! OK
Par contre, je ne vois pas dans mon code l'endroit où mon nom de fichier comporte ":"

[Benwad]

ok, d'apres toi y a t'il une solution?

[ouskel'n'or]

Ouf ! je n'avais rien compris Quand je te demandais ce qu'il y avait dans v j'ai cru que "Fevrier 2008!R7C1:R8C8" était un nom de fichier
J'étais dans une autre discussion. Je n'ai même pas vu que c'était une plage de cellules
Désolé
Je vais tester tout ça pour te donner une réponse qui ait un sens.
Je supprime mes réponses idiotes, j'ai trop honte
A+

[ouskel'n'or]

Je ne connais pas le nom de ta feuille, tu adapteras. J'ai utilisé les références de cellules RC (RowColonne) plutôt que l'adresse de la plage et ainsi ça fonctionne. Tu n'as pas besoin de sélectionner la plage, il suffit d'utiliser CurrentRegion.

Code :

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

1
2
3
4
5
6
7
8
Dim Ligne As Long, col As Integer, adres As String
    Worksheets("feuil1").Select
    ligne = Range(Split(Range("A7").CurrentRegion.Address, ":")(1)).Row
    col = Range(Split(Range("A7").CurrentRegion.Address, ":")(1)).Column
    adres = ActiveSheet.Name & "!R" & 7 & "C1:R" & ligne & "C" & col
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        adres).CreatePivotTable Tabledestination:="", TableName:= _
        "TCD1", DefaultVersion:=xlPivotTableVersion10

A ce stade tu vas encore devoir désigner les champs que tu utilises et organiser tes données dans le TCD. Mais je pense que tu le sais...
Tu testes
Désolé pour le temps perdu.
A+

[Benwad]

Toutes mes félicitations Ouskel'n'or, cela fonctionne parfaitement.
Avant de mettre "resolu", peux tu m'apporter une explication supplémentaire sur les références de cellules comme :

Code :

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

ligne = Range(Split(Range("A7").CurrentRegion.Address, ":")(1)).Row

Et à ton avis est ce que je peux dupliquer ta réalisation sur 1 TCD général c'est a dire 1 TCD qui reprend toutes les données de mes différentes feuilles ("janvier 2008", "fevrier 2008","mars 2008"...)

Au fait, il n'ya pas de mal pour tes explications du départ, mais je t'avoue que j'ai eu du mal à comprendre où tu voulais en venir (d'autant plus que je débute en VBA)

Encore bravo et merci

[ouskel'n'or]

peux tu m'apporter une explication supplémentaire sur les références de cellules comme :

Code :

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

ligne = Range(Split(Range("A7").CurrentRegion.Address, ":")(1)).Row

Une explication : Split convertit une chaîne de caractères en tableau en utilisant un caractère désigné (ici les deux points ":") comme séparateur de données.
Par exemple, si Range("A7").CurrentRegion.Address = "$A$7:$G$55", cette adresse ne contient d'une fois ":", j'obtiens donc un tableau d'indices 2 (0 et 1)
J'aurais pu écrire

Code :

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

Tablo = Split(Range("A7").CurrentRegion.Address, ":")

et obtenir un tableau à une dimension de deux indices Tablo(0) = "$A$7" et tableau(1) = "$G$55"
pour l'utiliser ensuite ainsi

Code :

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

1
2
NoLigne = range(Tablo(1)).row '=> 55
NoCol = range(Tablo(1)).column '=> 7 pour "G")

Au lieu de passer par un tableau intermédiaire, j'ai utilisé directement Split, ce qui m'évite la variable tablo()

Ceci dit, je n'avais jamais cherché à créer un TCD par soft et ne comprends pas pourquoi avec l'adresse directe ça ne fonctionne pas. Peut-être faut-il utiliser un range, non une adresse (?) Je n'ai pas testé.
Bon courage pour la suite.

[Benwad]

Merci pour toutes ces infos Ouskel'n'or