erreur 1004 la methode add a échoué

  • Initiateur de la discussion Initiateur de la discussion Saltz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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 ...
 
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 ....
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
580
Réponses
11
Affichages
780
Retour