[FONT=Century Gothic]Range("A1").Select[/FONT]
[FONT=Century Gothic] Selection.CurrentRegion.Select[/FONT]
[FONT=Century Gothic] ActiveWorkbook.Names.Add Name:="Base_Data", RefersToR1C1:=Selection[/FONT]
[FONT=Century Gothic] ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _[/FONT]
[FONT=Century Gothic] "Data!Base_Data").CreatePivotTable TableDestination:= _[/FONT]
[FONT=Century Gothic] "[[COLOR=blue]NOMFICHIER.xls[/COLOR]]Data!R13C20", TableName:= _[/FONT]
[FONT=Century Gothic] "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10[/FONT]
[FONT=Century Gothic] ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _[/FONT]
[FONT=Century Gothic] "VENDEUR", ColumnFields:="AK"[/FONT]
[FONT=Century Gothic] ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("AK"). _[/FONT]
[FONT=Century Gothic] Orientation = xlDataField[/FONT]
[FONT=Century Gothic] ActiveWorkbook.ShowPivotTableFieldList = True[/FONT]
[FONT=Century Gothic] Application.CommandBars("PivotTable").Visible = False[/FONT]
[FONT=Century Gothic] ActiveWorkbook.ShowPivotTableFieldList = False[/FONT]
[FONT=Century Gothic]Range("A1").Select[/FONT]