D'accord merci. Tu as modifié, mais est ce que tu as oublié de mettre le document en pièce jointe ou c'est volontaire?
Sinon j'ai réussi à faire quelque chose qui fonctionne bien.
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"'Données Electricité'!R2C3:R103C6", Version:=6).CreatePivotTable TableDestination:= _
"'Résultats Electricité'!R3C2", TableName:="aze", DefaultVersion:=6
Sheets("Résultats Electricité").Select
Cells(3, 2).Select
With ActiveSheet.PivotTables("aze")
Blabla
End With
With ActiveSheet.PivotTables("aze").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("aze").RepeatAllLabels _
xlRepeatLabels
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("'Résultats Electricité'!$B$3:$D$20")
With ActiveChart.PivotLayout.PivotTable.PivotFields("Mois")
.Orientation = xlRowField
.Position = 1
End With
ActiveChart.PivotLayout.PivotTable.AddDataField ActiveChart.PivotLayout. _
PivotTable.PivotFields("Relevé BaseVie"), "Somme de Relevé BaseVie", xlSum
ActiveChart.PivotLayout.PivotTable.AddDataField ActiveChart.PivotLayout. _
PivotTable.PivotFields("Relevé Chantier"), "Somme de Relevé Chantier", xlSum
ActiveChart.PivotLayout.PivotTable.AddDataField ActiveChart.PivotLayout. _
PivotTable.PivotFields("Relevé Global"), "Somme de Relevé Global", xlSum