Erreur d'execution 1004 erreur definie par l'application

Bonjour,

Merci d'avance à tous ceux qui voudront bien prendre de leur temps pour essayer de m'aider.

Voilà; à l'exécution de la macro ci-dessous j'ai le message

"Erreur d'execution 1004 erreur definie par l'application ou par l'objet"

L'erreur se situe au niveau de la ligne en gras (x.Visible = True) ! J'ai choisi de mettre tout le code pour mieux vous aiguiller.

Je vous en remercie encore pour votre aide.

Public Sub RefreshScopeFI()

    PivotOtherInstru = "Other Instruments"
    PivotHoldType = " holding type"
    PivotNatuFund = "Nature of fund"

    Set FI_Cal = Sheets("Calculs_FI")

'/----------------------- --------------------/
' ---------------------- FI expo -------/
'/--------------------------------------------/

        Set pvt = FI_Cal.PivotTables("FI_expo")
        Set OtherInstru = pvt.PivotFields(PivotOtherInstru).PivotItems
        Set HoldType = pvt.PivotFields(PivotHoldType).PivotItems
        Set NatFund = pvt.PivotFields(PivotNatuFund).PivotItems

        With pvt
              .ManualUpdate = True

                'MAJ de Other Instruments
                    'Remise à zero
                        For Each x In OtherInstru
                              [b]x.Visible = True[/b]

                        Next x

                    'application du mapping
                        For Each PivItem In OtherInstru
                            Select Case PivItem.Name
                            Case "Internal Loan for holding"
                            PivItem.Visible = False
                            Case Else
                            PivItem.Visible = True
                            End Select
                        Next PivItem

                'MAJ de Holding Type
                    'Remise à zero
                        For Each x In HoldType
                               x.Visible = True
                         Next x
                    'application du mapping
                        For Each PivItem In HoldType
                            Select Case PivItem.Name
                            Case "Government bonds", "Corporate bonds"
                            PivItem.Visible = True
                            Case Else
                            PivItem.Visible = False
                            End Select
                        Next PivItem

                'MAJ de Physical Asset
                    'Remise à zero
                        For Each x In NatFund
                               x.Visible = True
                         Next x

                    'application du mapping
                        For Each PivItem In NatFund
                            Select Case PivItem.Name
                            Case "Holding"
                            PivItem.Visible = False
                            Case Else
                            PivItem.Visible = True
                            End Select
                        Next PivItem
              .ManualUpdate = False
            End With

    Set HoldType = Nothing
    Set pvt = Nothing
    Set OtherInstru = Nothing
    Set NatFund = Nothing

End Sub

Bonjour

Pour une meilleure lisibilité, merci d'utiliser la balise "Code"

Cordialement

Rechercher des sujets similaires à "erreur execution 1004 definie application"