Bonjour,
Voilà, je rencontre un problème dans la mise à jour d'un TCD.
J'ai une combobox qui appelle par l'intermédiaire de code VBA une autre nommée Macro2 qui doit mettre à jour 3 TCD.
Le code utilisé est le suivant:
- pour la combobox
Private Sub ComboBox1_Change()
Call Macro2
End Sub
- pour la Macro2
Sub Macro2()
Dim MaCel As Range
Set MaCel = Range("V5")
ActiveSheet.Unprotect
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Numéro RNE"). _
CurrentPage = "" & MaCel.Value
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Numéro RNE"). _
CurrentPage = "" & MaCel.Value
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
Chaque fois que je lance l'action par la combobox, la mise à jour se fait apparamment sur les 3 TCD mais se termine par un affichage:
Erreur d'execution '1004':
Impossible de lire la propriété pivotFields de la classe PivotTable.
Avez vous une explication et une solution pour régler ce problème?
Merci d'avance
Voilà, je rencontre un problème dans la mise à jour d'un TCD.
J'ai une combobox qui appelle par l'intermédiaire de code VBA une autre nommée Macro2 qui doit mettre à jour 3 TCD.
Le code utilisé est le suivant:
- pour la combobox
Private Sub ComboBox1_Change()
Call Macro2
End Sub
- pour la Macro2
Sub Macro2()
Dim MaCel As Range
Set MaCel = Range("V5")
ActiveSheet.Unprotect
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Numéro RNE"). _
CurrentPage = "" & MaCel.Value
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Numéro RNE"). _
CurrentPage = "" & MaCel.Value
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
Chaque fois que je lance l'action par la combobox, la mise à jour se fait apparamment sur les 3 TCD mais se termine par un affichage:
Erreur d'execution '1004':
Impossible de lire la propriété pivotFields de la classe PivotTable.
Avez vous une explication et une solution pour régler ce problème?
Merci d'avance