erreur 1004 la methode add a échoué

[Saltz]

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é

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

 

[Yaloo]

Re : erreur 1004 la methode add a échoué

Bonjour Saltz et bienvenu sur XLD,

Chez moi, il n'y a pas de problème sur cette ligne. Peut-être un classeur protégé ?

A+

Martial

 

[Saltz]

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]

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

 

[Yaloo]

Re : erreur 1004 la methode add a échoué

Bonjour Saltz,

Il faut déprotéger ton classeur, dans l'onglet "Révision", "Protéger le classeur" mettre un mot de passe s'il y en a un.

A+

Martial

 

[Saltz]

Re : erreur 1004 la methode add a échoué

Oui , c'est la bonne manip ! Merci Yaloo , il n'y avait pas de bug juste une protection sur la structure que j'aie changé en protection sur les fenetres .