Discussion :

[LNAze]

Bonjour !
Il y a quelques jours, un membre m'a aidé à finaliser mon code.
Cependant, en rajoutant un bouton d'exécution d'une macro (à côté) de création de tableau croisé dynamique, cela ne fonctionne plus...
Enfin sur mon ordi avec Excel 2013 oui mais pas en le transférant sur un autre ordi avec Excel 2010 --> erreur 1004 sur la fonction PivotCaches
Voici le code incriminé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sheets("Recap").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("E9").Select
 
    'Tableaux croisés dynamiques
 
    Columns("C:D").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C3:R1048576C4", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="Recap!R1C1", TableName:="Tableau croisé dynamique20", _
        DefaultVersion:=xlPivotTableVersion15
    Sheets("Recap").Select
    Cells(1, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tableau croisé dynamique20").PivotFields( _
        "Réf papier utilisé")
        .Orientation = xlRowField
        .Position = 1
    End With

etc etc

J'ai découvert hier que les listes déroulantes disparaissaient d'excel 2013 à excel 2010 si les tables n'étaient pas dans le même onglet donc je pense qu'il y a également une subtilité du genre...

Merci d'avance!!!

Eléna

[78chris]

Bonjour

Essaye en enlevant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DefaultVersion:=xlPivotTableVersion15

[LNAze]

J'aurai de nouveau accès au fameux ordi que lundi donc j'essaierai à ce moment-là et vous tiendrai au courant !
Merci !

[LNAze]

Bonjour,

Je viens de tester selon la modif que vous proposez, cela ne fonctionne toujours pas ...

[78chris]

Bonjour

Bonjour,

Je viens de tester selon la modif que vous proposez, cela ne fonctionne toujours pas ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C3:R1048576C4").CreatePivotTable _
        TableDestination:="Recap!R1C1", TableName:="Tableau croisé dynamique20"

fonctionne sur ma version 2010 (j'ai enlevé les deux références à la version Excel)
(au passage c'est un non sens de créer un TCD sur des colonnes complètes)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Columns("C:D").Select

ne sert à rien d'autant que la sélection se fait dans Recap !

[LNAze]

Re-bonjour

Merci beaucoup mes tableaux se créent exactement comme je veux d'après mon bouton d'exécution de la macro !!!!

En revanche, la phase de synthèse de tous mes fichiers ne se fait pas ... Erreur d'exécution 9 "l'indice n'appartient pas à la sélection".
Puis-je abuser de votre aide une dernière fois ?
J'y ai déjà passé des heures mais je ne comprends pas le code que j'utilise donc forcément, difficile de le déboguer à tatons...

Voici mon code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub CreationSynthese()
    'Effacer la feuille
    Cells.Delete
 
    Application.DisplayAlerts = False
 
    'Créer les titres
    Range("A1") = "Article"
    Range("B1") = "Commande"
    Range("C1") = "Réf papier utilisé"
    Range("D1") = "Quantité papier utilisé"
    Range("E1") = "Réf carton utilisé"
    Range("F1") = "Quantité carton utilisé"
    Range("G1") = "Réf couvertures utilisées"
    Range("H1") = "Quantité couvertures utilisées"
 
'Boucle pour l'ensemble des fichiers
    ChDir "C:\Users\service.qualité\Desktop\CFR\00-COMMANDES"
    ClasseurArticles = Dir("C:\Users\service.qualité\Desktop\CFR\00-COMMANDES\*.xls")
 
    While Len(ClasseurArticles) > 0  'Tant que la longueur du nom du fichier contenu dans le ClasseurArticles est sup à 0 on continue la boucle
        Workbooks.Open ClasseurArticles
        DerniereLigne = Sheets("Compil").UsedRange.Rows.Count
        Range("A2:G" & DerniereLigne).Copy
        Workbooks("Compil2.xlsm").Activate
        DebutNom = ActiveSheet.UsedRange.Rows.Count + 1
        Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
        ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBLanks:=False, Transpose:=False
        Range("A" & DebutNom & ":A" & ActiveSheet.UsedRange.Rows.Count) = ClasseurArticles
        Workbooks(ClasseurArticles).Close False
        ClasseurArticles = Dir
        Wend
        Columns("A:A").Replace ".xls", ""

La ligne incriminée est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne = Sheets("Compil").UsedRange.Rows.Count

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WorkSheets("Compil").Activate
DerniereLigne = ActiveSheets.UsedRange.Rows.Count

Mais bug encore...
Et comme d'hab, ça fonctionne sur mon PC en 2013 mais pas sur celui de l'atelier en office 2010.

Si vous avez le temps de regarder...Merci d'avance !!!

Bonne fin de journée,
Eléna

[casefayere]

Sans regarder ton code de plus près, n'as-tu pas des références manquantes à décocher, ici, si tu vois "MANQUANT"

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne = Sheets("Compil").UsedRange.Rows.Count

marche à l'identique quelle que soit la version

Ce type de message d'erreur sur cette ligne indique plutôt que la feuille "Compil" n’existe pas dans le classeur courant.