VBA Excel - erreur d'exécution '-2147467259 ( 80004005)'

[thierry97100]

Bonjour

lorsque je lance un fichier excel (office 2024) c'est erreur apparait 

le débogage me renvois à c'est macro et bug sur "bar.Position = msoBarTop"

Avez-vous une solution? svp

merci d'avance

Cordialement

Sub Auto_Open()

' Auto Macro

    CreerBarre
    For Each bar In CommandBars
     If bar.Visible = True Then
        If bar.BuiltIn Then
            bar.Position = msoBarTop
        Else
            bar.Position = msoBarBottom
        End If
    End If
Next
 End Sub

 

[thierry97100]

Bonjour

je viens de trouver

ma macro est trop ancienne. 

je l'ai remplacer par celle-ci

Private Sub Workbook_Open()

    Dim bar As CommandBar

    On Error Resume Next
    CreerBarre

    For Each bar In Application.CommandBars
        If bar.Visible Then
            If bar.BuiltIn Then
                bar.Position = msoBarTop
            Else
                bar.Position = msoBarBottom
            End If
        End If
    Next bar
    On Error GoTo 0

End Sub

cordialement

[Dylav]

Salut Thierry,
Content que tu aies trouvé la solution à ton problème.
Je marque ton sujet Résolu (voir Comment marquer un sujet Résolu).