Saltz
XLDnaute Nouveau
Bonjour à tous , je vous sollicite pour un bug qui s'est manifesté je pense suite à une migration de excel 2003 vers excel 2010 .C'est la 6 ème ligne de code .Pourtant , elle me semble bien écrite et n'a jamais posé de problème pendant des années .
Erreur 1004 la méthode add de l'objet "sheets" a échoué
Code:
Sub TCDcomparatif()
Application.DisplayAlerts = False
Dim mafeuil As Worksheet
Dim feuildenregistrement As Worksheet
Dim champdate, plagecopiee As Range
Set mafeuil = ActiveWorkbook.Worksheets.Add(after:=Worksheets(Worksheets.Count)) ' ici erreur 1004
Set feuildenregistrement = ActiveWorkbook.Sheets("Enregistrement")
Application.ReferenceStyle = xlA1
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=Sheets("Base").Range("A1").CurrentRegion.Address).CreatePivotTable _
TableDestination:=mafeuil.Cells(3, 1), _
TableName:="Tableau croisé dynamique3" ', DefaultVersion:=xlPivotTableVersion10
With mafeuil.PivotTables("Tableau croisé dynamique3").PivotFields("DATE")
.Orientation = xlRowField
.Position = 1
End With
mafeuil.PivotTables("Tableau croisé dynamique3").AddDataField mafeuil. _
PivotTables("Tableau croisé dynamique3").PivotFields("NIVEAUX"), _
"Somme de NIVEAUX", xlSum
Set champdate = mafeuil.Range("A4")
champdate.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
False, True, False, True)
With mafeuil.PivotTables("Tableau croisé dynamique3").PivotFields("DATE")
.Orientation = xlColumnField
.Position = 1
End With
With mafeuil.PivotTables("Tableau croisé dynamique3")
.ColumnGrand = False
.RowGrand = False
End With
mafeuil.Name = "Tableau TCD"
'etc ....
end sub