Microsoft 365 Erreur Nom ambigu détecté: Workbook_Open

Philippe17 · 13 Mars 2024

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 · 13 Mars 2024

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

VB:

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

sylvanu · 13 Mars 2024

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

VB:

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

Nicos · 13 Mars 2024

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

VB:

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 · 13 Mars 2024

Philippe17 à dit:
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.

VB:

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 · 13 Mars 2024

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

Philippe

Microsoft 365 Erreur Nom ambigu détecté: Workbook_Open

Philippe17

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Nicos

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Philippe17

XLDnaute Junior

Discussions similaires