M
mikepers
Guest
Salut, et merci pour ce forum !!
voilà mon problème: je désires que mon fichier s'ouvre avec des barres d'outils spécifiques - j'ai créé une barre d'outil ('navigation') que j'ouvre avec le code suivant :
_______________________________________________________
Private Sub WorkBook_Activate()
On Error Resume Next
With Application.CommandBars('Navigation')
.Enabled = True
.Visible = True
End With
On Error GoTo 0
End Sub
_______________________________________________________
Private Sub WorkBook_Deactivate()
On Error Resume Next
Application.CommandBars('Navigation').Enabled = False
On Error GoTo 0
End Sub
_______________________________________________________
ça fonctionne à merveille, mais en allant plus loin, pour des raisons de mise en page, je désire que les barres d'outils 'Standard' et 'Mise en forme' n'apparaissent pas à l'ouverture. Quelqu'un peut il m'aider ??
Merci
voilà mon problème: je désires que mon fichier s'ouvre avec des barres d'outils spécifiques - j'ai créé une barre d'outil ('navigation') que j'ouvre avec le code suivant :
_______________________________________________________
Private Sub WorkBook_Activate()
On Error Resume Next
With Application.CommandBars('Navigation')
.Enabled = True
.Visible = True
End With
On Error GoTo 0
End Sub
_______________________________________________________
Private Sub WorkBook_Deactivate()
On Error Resume Next
Application.CommandBars('Navigation').Enabled = False
On Error GoTo 0
End Sub
_______________________________________________________
ça fonctionne à merveille, mais en allant plus loin, pour des raisons de mise en page, je désire que les barres d'outils 'Standard' et 'Mise en forme' n'apparaissent pas à l'ouverture. Quelqu'un peut il m'aider ??
Merci