voici le code que j'utilise pour afficher/masquer les barres :
' Montre ou cache les barres d'outils de l'environnement utilisateur
Sub MenuEtBO(OnOff As Boolean)
Dim i%
Application.CommandBars(tabBO(0)).Enabled = OnOff
For i = 1 To UBound(tabBO)
Application.CommandBars(tabBO(i)).Visible = OnOff
Next
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
j'ai quelques fois une erreur d'éxécution 9 et je suis obligé de remettre
les barres en manu lorsque j'ouvre un autre classeur.
comment être sur de ne pas avoir cette erreur et être sur de retrouver mon
environnement normal à la fermeture de ce fichier.
ben , tu viens de le faire en postant ton message de marche correcte de la solution.
Content de voir que tu es dépanné
A+
Merci ça marche et j'ai très bien compris le cheminement. heureusement que tu es là pour nous aider dans nos galère.
encore une p'tite dernière : comment fait-on pour valider que c'est résolu sur le forum ??
A+ et encore bonnes vacances
Bonjour,
voici le code que j'utilise pour afficher/masquer les barres : ' Montre ou cache les barres d'outils de l'environnement utilisateur Sub MenuEtBO(OnOff As Boolean) Dim i% Application.CommandBars(tabBO(0)).Enabled = OnOff For i = 1 To UBound(tabBO) Application.CommandBars(tabBO(i)).Visible = OnOff Next Application.CommandBars("worksheet menu bar").Enabled = True End Sub
j'ai quelques fois une erreur d'éxécution 9 et je suis obligé de remettre les barres en manu lorsque j'ouvre un autre classeur. comment être sur de ne pas avoir cette erreur et être sur de retrouver mon environnement normal à la fermeture de ce fichier.
Merci
ben , tu viens de le faire en postant ton message de marche correcte de
la solution.
Content de voir que tu es dépanné
A+
Merci ça marche et j'ai très bien compris le cheminement.
heureusement que tu es là pour nous aider dans nos galère.
encore une p'tite dernière : comment fait-on pour valider que c'est résolu
sur le forum ??
A+ et encore bonnes vacances
Bonjour,
voici le code que j'utilise pour afficher/masquer les barres :
' Montre ou cache les barres d'outils de l'environnement utilisateur
Sub MenuEtBO(OnOff As Boolean)
Dim i%
Application.CommandBars(tabBO(0)).Enabled = OnOff
For i = 1 To UBound(tabBO)
Application.CommandBars(tabBO(i)).Visible = OnOff
Next
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
j'ai quelques fois une erreur d'éxécution 9 et je suis obligé de remettre
les barres en manu lorsque j'ouvre un autre classeur.
comment être sur de ne pas avoir cette erreur et être sur de retrouver mon
environnement normal à la fermeture de ce fichier.
ben , tu viens de le faire en postant ton message de marche correcte de la solution.
Content de voir que tu es dépanné
A+
Merci ça marche et j'ai très bien compris le cheminement. heureusement que tu es là pour nous aider dans nos galère.
encore une p'tite dernière : comment fait-on pour valider que c'est résolu sur le forum ??
A+ et encore bonnes vacances
Bonjour,
voici le code que j'utilise pour afficher/masquer les barres : ' Montre ou cache les barres d'outils de l'environnement utilisateur Sub MenuEtBO(OnOff As Boolean) Dim i% Application.CommandBars(tabBO(0)).Enabled = OnOff For i = 1 To UBound(tabBO) Application.CommandBars(tabBO(i)).Visible = OnOff Next Application.CommandBars("worksheet menu bar").Enabled = True End Sub
j'ai quelques fois une erreur d'éxécution 9 et je suis obligé de remettre les barres en manu lorsque j'ouvre un autre classeur. comment être sur de ne pas avoir cette erreur et être sur de retrouver mon environnement normal à la fermeture de ce fichier.
