Microsoft 365 Erreur Nom ambigu détecté: Workbook_Open

[Philippe17]

Bonjour à tous,
J'ai un problème sur ce code avec message erreur, je voudrais pour présenter feuille masquer les barres de défilement, vous pouvez m'aider ?
Merci

Philippe

 

[sylvanu]

Bonjour Philippe,
Dans un fichier vous n'avez le droit qu'à un seul module Workbook_Open.
Essayez :

Private Sub Workbook_Open()
    Application.WindowState = xlMaximized ' Ouvre le Classeur en grand
    With Sheets("feuil1")
        ActiveWindow.DisplayHorizontalScrollBar = False
        ActiveWindow.DisplayVerticalScrollBar = False
    End With
End Sub

 

[Nico_J]

Bonjour,
Vous avez 2 fois la même procédure sur ThisWorkbook

Private Sub Workbook_Open()
    With Sheets("feuil1")
        Application.WindowState = xlMaximized ' Ouvre le Classeur en grand
        ActiveWindow.DisplayHorizontalScrollBar = False
        ActiveWindow.DisplayVerticalScrollBar = False
    End With
End Sub

Bonne continuation

 

[Jacky67]

Bonjour à tous,
J'ai un problème sur ce code avec message erreur, je voudrais pour présenter feuille masquer les barres de défilement, vous pouvez m'aider ?
Merci

Philippe

Bonjour à tous,
En Complément,
Il ne sert à rien de spécifier la feuille, ainsi écrit, le code sera pour tout le classeur(toutes feuilles)

Si il faut absolument enlever ces barres sur une feuille spécifique
Dans le module de la feuille en question.

Private Sub Worksheet_Activate()
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
End Sub

Private Sub Worksheet_Deactivate()
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
End Sub

 

[Philippe17]

Merci beaucoup à tous pour vos réponses, je prends toutes les solutions,
Bonne journée,

Philippe