Macro VBA pour créer un TCD

[Noeste]

Bonjour à tout le forum,

Je me permets de vous demander de l'aide car je suis en panne d'inspiration, j'ai cherché une solution sur le forum mais en vain.

En fait, je voudrais créer une macro me permettant de créer un tableau croisé dynamique à partir d'un fichier hedbomadaire sur excel, bien entendu ce fichier n'est jamais le même et je me retrouve coincé pour la sélection de la source dans la macro.

J'ai fais ça mais, cela ne marche qu'une fois à cause de la source (ici en gras)

Sub TCDmensuel()

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
''Oct global'!R1C1:R10601C36').CreatePivotTable TableDestination:='', _
TableName:='PivotTable2', DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables('PivotTable2').AddFields RowFields:='Type', _
ColumnFields:='PK'
ActiveSheet.PivotTables('PivotTable2').PivotFields(' Amount LC'). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

Merci de votre compréhension et de votre aide

Noeste

 

[Noeste]

Oui c'est normal car il est trop gros et je ne peux le zipper. Et j'ai peur que de faire un TCD sur le fichier que j'ai joint ne soit pas représentatif de ce que je veux faire.


http://www.hiboox.com

Message édité par: Noeste, à: 25/11/2005 08:56

Message édité par: Noeste, à: 25/11/2005 09:00

 

[Dan]

Bonsoir Noeste,

Toutes mes excuses mais j'ai complètement laissé de coté ta demande de coté.
Bon je reviens dessus là mais j'ai un pb avec ton fichier que je n'arrive pas à ouvrir.
Si ton pb n'est pas résolu, peux-tu le replacer.
Merci

A bientôt