Discussion :

[lamblain]

Un morceau de code qui fonctionne une fois par mois a cessé de fonctionner, probablement suite à une mise à jour du 29/09/17.
Le plus "drôle", c'est que ce code vient d'un enregistrement d'une macro. J'ai beau procéder à un nouvel enregistrement, Excel ne parvient même pas à exécuter le code qu'il a lui-même écrit :

Code :

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

1
2
3
4
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Opés!R1C1:R65536C5", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="TCD.Opés!R1C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion10

Ca ne fait que prendre les 5 premières colonnes de l'onglet "Opés" et en faire un tableau croisé dans l'onglet "TCD.Opés".
J'ai le même message d'erreur (Erreur 1004 Référence pas valide) sur 4 PC différents, totalisant 3 versions distinctes d'Office.
Si quelqu'un a une idée de la manière dont on peut réparer ou contourner la chose, je suis preneur.
Merci d'avance pour votre aide.

Nicolas

[78chris]

Bonjour

Le code enregistré ne marche jamais si on ne supprime pas au préalable le TCD créé lors de l'enregistrement...

De façon générale il est conseillé de ne pas recréer les TCD par macro mais d'en actualiser les sources...

Tu ne précises pas quelle(s) version(s) d'Excel tu utilises ni si la mise à jour concerne Windows ou une version d'Excel et si oui laquelle...

A tout hasard supprime les références à la version qui apparaissent 2 fois dans le code...

[lamblain]

Merci Chris pour ta réponse.
J'utilise Office 2016 pour petite entreprise.
J'avais oublié de préciser que je supprimais bien le TCD avant de le recréer par du code.
Si je fais comme ça au lieu de mettre à jour, c'est pour éviter une colonne (vide) au milieu des autres colonnes, que je n'ai pas réussi à supprimer. Le tableau donne des totaux de vente par mois, avec en-tête de colonne 1710, 1711, 1712, 1801, 1802 ... Et si je ne fait que réactualiser des tableau, le mois suivant, j'ai 1711, 1712, 1801, 1802, (vide), 1803. Un truc pour éviter ça est le bienvenu.
Pour mon problème initial, je m'aperçois que ça remarche comme avant. J'essaie de voir si une mise à jour Office peut expliquer cette rémission spontanée.
Merci

Nicolas

[78chris]

Bonjour

Dans un TCD tu peux filtrer la valeur (vide) : il faut alors paramétrer le champ pour que malgré le filtre, les nouvelles périodes apparaissent automatiquement : "Inclure les nouveaux éléments dans le filtre manuel"

[Ben_L]

Bonjour,

Il me semble qu'il vous manque une virgule :

Code :

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

1
2
3
4
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Opés!R1C1:R65536C5", Version:=xlPivotTableVersion10).CreatePivotTable, _
        TableDestination:="TCD.Opés!R1C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion10