Macro fonctionne sur Excel 2013 mais plus sur Excel 2010 - Création TCD

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:

---

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

Bonjour

Essaye en enlevant

Code:

---

DefaultVersion:=xlPivotTableVersion15

---

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

Bonjour,

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

Bonjour

Citation:

---

Envoyé par LNAze

Bonjour,

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

---

Code:

---

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:

---

Columns("C:D").Select

---

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

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:

---

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:

---

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

---

J'ai essayé :

Code:

---

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

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

Bonjour

Code:

---

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.