Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Private Sub Workbook_Open()

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

toune21

XLDnaute Impliqué
Bonsoir à tous,

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

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

Code: 
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

Code: 
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

Code: 
[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
 
Dernière édition:
Trier par date Trier par votes
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]
Code: 
[/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:
Code: 
'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 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Private Sub Workbook_Open()

Re

Test OK ici
[TABLE="width: 600"]
[TR]
[TD]Dans le code de ThisWorkBook
Code: 
Private Sub Workbook_Open()
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Call a
End Sub
[/TD]
[TD]Dans un module standard
Code: 
Sub a()
With UserForm1
.StartUpPosition = 0
.Left = 300
.Top = 100
.Show vbModeless
End With
End Sub
[/TD]
[/TR]
[/TABLE]
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...

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

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

Merci beaucoup,
Amicalement,
 
Dernière édition:
Vote positif 0 Vote négatif
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

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
784
lynyrd
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Question Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
2 K
Jouxte
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
1 K
ThierryP
T
  • Question Question
XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()
3 4 5
Réponses
62
Affichages
4 K
Usine à gaz
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
893
bsalv
B
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
628
francha62
F
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
947
marie3107
M
C
  • Résolu(e)
XL 2021 Alimenter Listbox si colonne 3 contient un mot précis
Réponses
5
Affichages
788
Claudinedu13
C
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
589
vgendron
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
1 K
crocrocro
C
M
  • Question Question
Autres VBA - cumuler 2 Private Sub Worksheet_change(ByVal Target As Range)
Réponses
5
Affichages
949
AtTheOne
D
  • Résolu(e)
XL 2016 Appliquer redimensionnement d'images à une colonne entière
Réponses
2
Affichages
682
Dvd1976
D
B
  • Question Question
Microsoft 365 liste à choix multiples avec contenu variable
Réponses
3
Affichages
772
BER6543
B
Génération de QR Codes
Réponses
9
Affichages
2 K
Rheeem
R
Y
  • Résolu(e)
XL 2019 Après un No_Splash Screen et un displayfullscreen ok mais ruban répond pas
Réponses
14
Affichages
1 K
YAP32
Y
A
  • Résolu(e)
XL 2019 Comment empêcher l'ouverture d'un fichier Excel, si les macros ne sont pas activés sur le pc
Réponses
7
Affichages
2 K
abi_71@
A
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
962
GADENSEB
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…