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