Bonjour à tous,
Voilà j'ai un classeur avec beaucoup de feuille et j'aimerai qu'à l'ouverture du fichier seule la feuille "Engagements" soit visible.
Comment puis-je procéder sans écrire plusieurs lignes de code.
Merci par avance
Voici mon code d'ouverture :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Private Sub WorkBook_Open() Dim cmdb As CommandBar Dim vRep As Integer barre_menus_perso Creation_MaBarre depart For Each cmdb In Application.CommandBars Next cmdb UFbonj.Show With Application .DisplayFullScreen = False .DisplayStatusBar = False .CommandBars("Worksheet Menu Bar").Enabled = False .CommandBars("Standard").Visible = False .CommandBars("Formatting").Visible = False .CommandBars("Visual Basic").Visible = False .DisplayFormulaBar = True Sheets("Détail").Visible = False End With With ActiveWindow .DisplayHeadings = False .Zoom = 100 End With Dim msg As String Dim insuf As Boolean Application.ScreenUpdating = False Test1 End Sub
Partager