Discussion :

[Tom55555]

Bonjour à tous,

J'ai soucis par rapport à un TCD que je cherche à automatiser manuellement.
J'ai une source de données dans laquelle j'ai des dates en colonnes (le nom de la feuille est "Buffer"), et je souhaiterais mettre l'ensemble de ces en-tête en données dans mon TCD. Problème : je sèche sur l'algorithme...Pourtant je me place bien sur la bonne cellule, et les fonctions left et right semblent justes..

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 9 To nombre_de_colonnes_avec_date
With Sheets("TCD").PivotTables("TCD1")
 
.AddDataField.PivotFields ("" & Sheets("Buffer").Cells(1, i)), _
  Left(Sheets("Buffer").Cells(1, i), 2) & "." & Right(Sheets("Buffer").Cells(1, i), 4), xlSum
 
 
.DataFields(Left(Sheets("Buffer").Cells(1, i), 2) & "." & Right(Sheets("Buffer").Cells(1, i), 4)).NumberFormat = "#,##0"
End With
Next i

Merci beaucoup par avance de votre aide !