Réalisation d'un TCD via une macro

Mika -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un gros souci lorsque j'essaye d'utiliser une macro pour réaliser un tcd.
Lorsque je le réalise manuellement sans passer par une macro tout marche nickel et j'ai le résultat voulu. Lorsque je fais une macro et que je réalise les mêmes manipulation celui-ci se plante avec erreur d'exécution "5" Argument ou appel de procédure incorrect.
J'ai lu que cela pouvait se produire car la macro enregistre L'instruction de ligne par la lettre L et qu'il faut la remplacer par la lettre R (row ) pour que le vba puisse le comprendre correctement.
Mais lorsque je regarde mon code VBA celui ci contient bien le R pour les lignes.
Voici ce que j'ai comme code en passant par le débogage.

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"NB Heures OC par Chantier!R1C1:R1048576C4", Version:=7).CreatePivotTable _
TableDestination:="NB Heures OC par Chantier!R1C8", TableName:= _
"Tableau croisé dynamique7", DefaultVersion:=7

C'est sur cette ligne de code qu'il se plante et je ne vois pas où est le problème. Qui peut m'aider à résoudre ce big problème?

Merci d'avance pour votre aide.

6 réponses

  3. Mika
     
    voici mon code pour la macro complète qui ne fonctionne pas lorsque je l'active pour l'exécuter.
    l'erreur apparait à la ligne ActiveWorkbook.pivotCaches ......... lorsque je passe par le débogage 

    
Sub Macro12()
'
' Macro12 Macro
'

'
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "NB Heures OC par Chantier!R1C1:R56C4", Version:=7).CreatePivotTable _
        TableDestination:="NB Heures OC par Chantier!R1C10", TableName:= _
        "Tableau croisé dynamique14", DefaultVersion:=7
    Sheets("NB Heures OC par Chantier").Select
    Cells(1, 10).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique14")
        .ColumnGrand = True
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False
        .NullString = ""
        .PageFieldOrder = 2
        .PageFieldWrapCount = 0
        .PreserveFormatting = True
        .RowGrand = True
        .SaveData = True
        .PrintTitles = False
        .RepeatItemsOnEachPrintedPage = True
        .TotalsAnnotation = False
        .CompactRowIndent = 1
        .InGridDropZones = False
        .DisplayFieldCaptions = True
        .DisplayMemberPropertyTooltips = False
        .DisplayContextTooltips = True
        .ShowDrillIndicators = True
        .PrintDrillIndicators = False
        .AllowMultipleFilters = False
        .SortUsingCustomLists = True
        .FieldListSortAscending = False
        .ShowValuesRow = False
        .CalculatedMembersInFilters = False
        .RowAxisLayout xlCompactRow
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotCache
        .RefreshOnFileOpen = False
        .MissingItemsLimit = xlMissingItemsDefault
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique14").RepeatAllLabels _
        xlRepeatLabels
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Formateur Titulaire")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique14").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Nbr H" & Chr(10) & "Formateur" & Chr(10) & "Titulaire"), "Nombre de Nbr H" & Chr(10) & "Formateur" & Chr(10) & "Titulaire", xlCount
    With ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Nom CHANTIER")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Nombre de Nbr H" & Chr(10) & "Formateur" & Chr(10) & "Titulaire")
        .Caption = "Somme de Nbr H"
        .Function = xlSum
    End With
    Selection.CurrentRegion.Select
    Selection.NumberFormat = "[h]:mm"
   End Sub
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      Tu expliques peu.

      Tu as mis en route l'enregistreur de macros,
      tu as créé manuellement un TCD,
      puis tu as arrêté l'enregistreur de macros?

      C'est bien cela?

      Ensuite, tu as supprimé le TCD créé, puis exécuté la macro?

      C'est bien cela?
      0
      1. Mika > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
         
        Tout à fait c'est ce que j'ai fais. J'ai lancé l'enregistreur de macro et réalisé ce que je voulais avoir comme TCD puis j'ai arrêté la macro. Là j'ai eu mon résultat escompté donc parfait. Ensuite j'ai effacé le tableau TCD ( que j'ai réalisé sur la même feuille que les données qui m'ont permis de faire le tcd). J'ai relancé la macro pour essayer d'avoir le TCD et c'est là que la macro se plante royalement sur la ligne de code ActiveWorkBook.PivotCaches.Create .........
        0
      2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > Mika
         
        Ma première hypothèse, c'est que le TCD n'avait pas été supprimé.
        Peux-tu partager ton fichier?
        0
  4. Mika
     
    Comment fait t'on pour partager le fichier?
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      Tu publies ton fichier sur Internet (google drive, cjoint.com, ...), et tu partages ici un lien vers le fichier.
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Mika
     
    https://docs.google.com/spreadsheets/d/1MqzXN1zyL3LABQx5bZqjNjJLX2XY0WyH/edit?usp=sharing&ouid=113444901287396211353&rtpof=true&sd=true
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      le fichier n'est pas public.
      0
  7. Mika
     
    et maintenant ? je viens de l'autoriser à toute personne qui a le lien
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      c'est bon, merci
      0
      1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
         
        ceci semble mieux fonctionner: 
        Dim destrg As Range
    Set destrg = Sheets("NB Heures OC par Chantier").Cells(1, 10)
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "NB Heures OC par Chantier!R1C1:R56C4", Version:=7).CreatePivotTable _
        TableDestination:=destrg, TableName:= _
        "Tableau croisé dynamique14", DefaultVersion:=7
        0

Discussions similaires

calcul taux de realisation
naimgr -
naimgr -

3 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses