Discussion :

[had4789]

Bonjour à tous,

Voila je génère un TCD via une macro tout ce qu’il y a de plus classique.

Le titre actuel de ma première colonne est "Nombres de 2014". Je voudrais remplacer ce titre par la valeur M1 de ma feuille "SaveExport".

Est-ce quelqu’un a une idée ?

Merci par avance

[jijie]

ben si tu test ça :

Code :

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

1
2
3
4
Sub test()
 
Sheets("feuil1").Range("a1") = Sheets("SaveExport").Range("M1")
End Sub

Si dans M1 tu n'as pas le même nom qu'une autre colonne de titre de ton TCD alors pas de problème!?

ou alors je ne comprends pas la question

[Philippe Tulliez]

Bonjour,
N'ai je pas déjà répondu à la même question http://www.developpez.net/forums/d14...d/#post7907997 ?
As-tu fait un test ?

[had4789]

Bonjour,

Jijie c'est dans un TCD que je veux effectuer se changement de nom.

Philippe, oui tu as répondu une première fois mais mon dernier message estresté sans réponse.

Concernant le code que tu m'as donné il ne fonctionne pas, j'ai une erreur 404 sur la ligne

Code :

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

 Set pvt = Feuil3.PivotTables(1)

[Philippe Tulliez]

Bonjour,
Ce ne serait pas plutôt une erreur 1004 ?
Si c'est le cas, il est possible qu'il n'y ait pas de tableau croisé dynamique dans la feuille dont la propriété CodeName est Feuil3
Tu peux aussi utiliser cette syntaxe

Code :

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

 Set pvt = ThisWorkbook.Worksheets("Feuil3").PivotTables(1)

[had4789]

Bonjour;

Avec le set que tu m'as envoyer ça fonctionne mais ça ne répond pas à ma question.

Ce que ton code fait on peut le faire en ajoutant un .Name dans la macro qui crée mon TCD.

Avec ton code le nom de ma nouvelle colonne est "Somme de CA" ce qui ne correspond pas à la cellule M1 de la feuille save export.

Merci pour ton aide.

[Philippe Tulliez]

Bonjour,

Avec ton code le nom de ma nouvelle colonne est "Somme de CA" ce qui ne correspond pas à la cellule M1 de la feuille save export.

Depuis le temps que tu participes à ce forum, il me semble que tu as déjà abordé ce type de question.
En lieu et place de la constante "Somme de CA", il suffit d'aller chercher la valeur se trouvant sur la cellule M1 de la feuille nommée SaveExport, soit si cette feuille est sur le même classeur que le TCD

Code :

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

1
2
3
With pvt
.DataPivotField.PivotItems(1).Caption = "Somme " & ThisWorkbook.Worksheets("SaveExport").Range("M1")
End With

[had4789]

Bonjour,

Oui j'ai déjà abordé un problème similaire pour lequel tu m'avais grandement aider. J'en profite d’ailleurs pour te remercier un nouvelle fois .

Je pense que le problème ne doit pas être compliquer mais je but sur un truc sans doute bête.

Ton code fonctionne avec l'expression "somme" mais pas sans.

J'ai testé ce code qui me renvoi une erreur 1004 "le nom du champ dynamique existe déjà".

Code :

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

1
2
3
4
5
6
7
8
9
Sub RenommerTitrePivotTable()
 Dim pvt As PivotTable
 Set pvt = ThisWorkbook.Worksheets("PresentationSoins").PivotTables(1)
 With pvt
.DataPivotField.PivotItems(1).Caption = ThisWorkbook.Worksheets("SaveExport").Range("M1") ' Si une seule agrégation
 .CompactLayoutRowHeader = "Titre Ligne"
 .CompactLayoutColumnHeader = "Titre Colonne"
 End With
End Sub

Merci par avance pour ton aide

[mercatog]

Regarde si manuellement tu peux changer le nom identiquement à celui de la plage source. Tu auras la même erreur.
Donc?

[Invité]

avec l'enregistreur de macro!

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro2()
'
' Macro2 Macro
'
 
'
    ActiveSheet.PivotTables("TDC").PivotFields("Affecté à").Caption = _
        "Affecté à toto"
End Sub

[had4789]

J'ai pris la solution de Philipe et la remarque de mercatog.

J'ai simplement changer le "Somme" par " " et ça marche parfaitement.

Encore un problème de résolu.

Merci à tous (surtout à Philipe pour ta patience et ta compréhension).