erreur 1004 la methode add a échoué

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
 

Saltz

XLDnaute Nouveau
Re : erreur 1004 la methode add a échoué

Oui le classeur est protégé .Je regarderais demain pour le déprotéger avant cette ligne 6 , j'aie excel 2010 seulement au bureau ...et je reposterais ce code avec les lignes en plus ...
 

Saltz

XLDnaute Nouveau
Re : erreur 1004 la methode add a échoué

J'aie bien une protection mais je ne sais pas trop laquelle ...
Manuellement , je n'arrive pas à supprimmer une feuille ou à en insérer une .Et le code vba correspondant doit manquer ....
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT