Signaler

Excel 2016 VBA : Problème création TCD [Résolu]

Posez votre question Eaheru 195Messages postés mercredi 23 juin 2010Date d'inscription 28 septembre 2017 Dernière intervention - Dernière réponse le 27 sept. 2017 à 18:34 par Eaheru
Bonjour,

J'ai un problème avec une macro que j'utilise depuis 2010 et qui crée des tableaux croisés dynamiques à la volée.
Cette macro utilise le premier onglet de mon fichier Excel afin d'effectuer plusieurs compilation des valeurs renseignées.

Malheureusement, depuis le déploiement d'Office 2016, cette macro ne fonctionne plus et affiche le message d'erreur suivant :
Erreur d’exécution '1004':
La référence n'est pas valide

Alors que j'utilise cette macro depuis 2010, toutes les semaines et que je n'ai pas touché au code. (que voici :) )

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="datas!R2C1:R" & Range("A65536").End(xlDown).Row _
& "C19", Version:=6).CreatePivotTable TableDestination:="Indicateurs!R2C1", TableName:="TotalHeuresRens", DefaultVersion:=6

With ActiveSheet.PivotTables("TotalHeuresRens").PivotFields("Produit")
For Each PivIt5 In .PivotItems
PivIt5.Visible = True
Next
On Error Resume Next
For Each PivIt5 In .PivotItems
If PivIt5.Name <> vark0 Then
If PivIt5.Name <> vark9 Then
If PivIt5.Name <> vark10 Then
PivIt5.Visible = False
End If
End If
End If
Next
End With
With ActiveSheet.PivotTables("TotalHeuresRens").PivotFields("Produit")
.Orientation = xlRowField
.Position = 1
End With

ActiveSheet.PivotTables("TotalHeuresRens").AddDataField ActiveSheet. _
PivotTables("TotalHeuresRens").PivotFields("Temps reel renseigne"), _
"Somme de Temps reel renseigne", xlSum


La macro bloque sur cette ligne :
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="datas!R2C1:R" & Range("A65536").End(xlDown).Row _
& "C19", Version:=6).CreatePivotTable TableDestination:="Indicateurs!R2C1", TableName:="TotalHeuresRens", DefaultVersion:=6


qui reste surligné en jeune pour le mode debogguage.
Je précise qu'a tout hasard, j'avais refais un enregistrement de la création d'un tableau croisé dynamique pour vérifier si la structure n'avait pas changé, et que cela n'a pas résolu mon problème.

Quelqu'un aurait il été confronté a cette difficulté ?
Merci d'avance pour votre aide
Utile
+0
plus moins
A tout hasard, pour aider ceux qui rencontreraient le même problème, j'ai résolu ce cas en passant mes données sous forme de tableau Excel et en créant le TCD sur ce tableau.
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !