Bonjour,
Afin de maximiser la zone d'affichage de mon tableau et avoir accès à la barre d'accès rapide, je cache le ruban à l'ouverture du fichier, et je le restitue dans son état initial à la fermeture avec les codes suivants :
A l'ouverture :
La variable Ruban est à Vrai si le ruban est visible
A la fermeture :
Ça fonctionne bien, sauf qu'à l'ouverture du fichier, si la commande .SendKeys "^{F1}" réduit bien le ruban, elle me supprime aussi le verrouillage numérique ! Et chose encore plus étrange, la même commande n'a pas ce comportement à la fermeture.
Depuis hier je triture mon code dans tous les sens pour comprendre pourquoi j'ai le verrouillage numérique qui change uniquement au démarrage de ma macro et uniquement lorsqu'il est verrouillé car bien entendu, l'inverse ne se produit pas s'il n'est pas verrouillé au départ, sinon ce serait trop simple...
Si quelqu'un à une idée, je suis preneur.
Merci d'avance pour votre aide.
Afin de maximiser la zone d'affichage de mon tableau et avoir accès à la barre d'accès rapide, je cache le ruban à l'ouverture du fichier, et je le restitue dans son état initial à la fermeture avec les codes suivants :
A l'ouverture :
Code:
Private Sub Workbook_Open()
With Application
If .CommandBars.Item("Ribbon").Height > 80 Then
Ruban = True
.SendKeys "^{F1}" 'pour masquer le ruban sur la feuille impression
DoEvents
End If
.ScreenUpdating = False
.EnableEvents = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
.WindowState = xlMaximized
End With
etc.....
A la fermeture :
Code:
.
.
.
If Application.CommandBars.Item("Ribbon").Height < 80 And Ruban Then
Application.SendKeys "^{F1}"
DoEvents
End If
etc....
Depuis hier je triture mon code dans tous les sens pour comprendre pourquoi j'ai le verrouillage numérique qui change uniquement au démarrage de ma macro et uniquement lorsqu'il est verrouillé car bien entendu, l'inverse ne se produit pas s'il n'est pas verrouillé au départ, sinon ce serait trop simple...
Si quelqu'un à une idée, je suis preneur.
Merci d'avance pour votre aide.