Private Sub Workbook_Open()

[toune21]

Bonsoir à tous,

Dans ThisWorkbook, j'ai deux codes "Private Sub Workbook_Open()"

Celui-ci qui me sert à enlever le quadrillage et les zéros.

Option Explicit
Private Sub Workbook_Open()
Dim w As Window
For Each w In ThisWorkbook.Windows
    w.DisplayGridlines = False
    w.DisplayZeros = False
Next w
End Sub

Et l'autre, pour le navigateur des onglets, qui est bien pratique pour moi

Private Sub Workbook_Open()
    With Navigateur
        .StartUpPosition = 0
        .Left = 300
        .Top = 100
        .Show vbModeless
    End With
'End Sub

Ces deux codes viennent de deux membres différents de ce forum, j'espère qu'il se reconnaîtront.

Mon souci c'est qu'ils font appel tous les deux à Workbook_Open.

J'ai donc mouliné les deux et j'ai ça

[I]Option Explicit
Private Sub Workbook_Open()
Dim w As Window
For Each w In ThisWorkbook.Windows
    w.DisplayGridlines = False
    w.DisplayZeros = False
Next w
With Navigateur
        .StartUpPosition = 0
        .Left = 300
        .Top = 100
        .Show vbModeless
    End With
End Sub[/I]

Mais le quadrillage et les zéros ne s'applique plus.

Je pense qu'il manque quelque chose !!!!!
Merci d'avance
Toune

 

[Staple1600]

Re : Private Sub Workbook_Open()

Bonsoir à tous

->toune21
Juste pour info:
les balises BBCODE sont utiles à rendre les messages sur le forum plus agréable à lire.
Merci de ne pas les oublier... donc surtout de les utiliser 😉

Avec l'icone : # ou en utilisant les balises suivantes:
[TABLE="width: 500"]
[TR]
[TD][NOPARSE]

[/NOPARSE][/B][/COLOR]
'Ici le code VBA
'Exemple
Sub Macro1()
MsgBox "Hello, World!"
End Sub
[COLOR=#b22222][B][NOPARSE]

[/NOPARSE][/TD]
[TD]Ce qui donne comme affichage:

'Ici le code VBA
'Exemple
Sub Macro1()
MsgBox "Hello, World!"
End Sub

[/TD]
[/TR]
[/TABLE]

Pour ta question:
Dans ThisWorkbook, j'ai deux codes "Private Sub Workbook_Open()"

Il doit y avoir qu'un seul "Private Sub Workbook_Open()" par classeur.
C'est obligatoire 😉

 

[Staple1600]

Re : Private Sub Workbook_Open()

Re

Test OK ici
[TABLE="width: 600"]
[TR]
[TD]Dans le code de ThisWorkBook

Private Sub Workbook_Open()
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Call a
End Sub

[/TD]
[TD]Dans un module standard

Sub a()
With UserForm1
.StartUpPosition = 0
.Left = 300
.Top = 100
.Show vbModeless
End With
End Sub

[/TD]
[/TR]
[/TABLE]

 

[toune21]

Re : Private Sub Workbook_Open()

Bonjour JM,

Merci de me taper sur les doigts, je ne connaissais pas les balises CODE.

je connais les balises QUOTE

Sub Macro1()
MsgBox "Hello JM, je ferais mieux la prochaine fois!"
End Sub

C'est mieux, j'ai fait la modif 🙂

Merci beaucoup,
Amicalement,

 

[Staple1600]

Re : Private Sub Workbook_Open()

Bonjour toune21


Tu nous dit pas si désormais ton problème est résolu ou pas ?

PS: merci d'avoir pris mon conseil en considération 😉

 

[toune21]

Re : Private Sub Workbook_Open()

Re bonjour,

Non il n'est pas résolu.
Je pense que le code qui concerne le navigateur, c'est un fichier qui vient d'un 'gros poisson' membre de ce forum.
empêche d'effectuer les

w.DisplayGridlines = False
w.DisplayZeros = False

Mon fichier est trop gros, si par MP t'interesse, me le faire savoir.
Merci quand même.
Amicalement
Toune

 

[Staple1600]

Re : Private Sub Workbook_Open()

Re

Tu as essayé le code que je proposais dans ce précédent message
https://www.excel-downloads.com/threads/private-sub-workbook_open.196073/

Car ici cela fonctionne très bien.

NB: Penser à remplacer dans le code UserForm1 par Navigateur

 

[toune21]

Re : Private Sub Workbook_Open()

Re,

Je ne t'ai pas bien écoutée,🙁
Je n'ai pas ajouté "Call a" dans Private Sub Workbook_Open()

Merci beaucoup.🙄

Et bon dimanche.