libellule85
XLDnaute Accro
Bonjour le forum,
Sur le forum j'ai récupéré une macro de Michel Xld concernant la réduction du ruban, je cherche a appliqué cette macro que sur une feuille (et non sur l'ensemble du classeur) nommée "Menu" à l'ouverture d'un classeur : est-ce possible ??
D'avance merci pour vos réponses
Sur le forum j'ai récupéré une macro de Michel Xld concernant la réduction du ruban, je cherche a appliqué cette macro que sur une feuille (et non sur l'ensemble du classeur) nommée "Menu" à l'ouverture d'un classeur : est-ce possible ??
Code:
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
Const VK_CONTROL = &H11
Const VK_F1 = &H70
Const KEYEVENTF_KEYUP = &H2
Range("A1").Select
DoEvents
keybd_event VK_CONTROL, 0, 0, 0
keybd_event VK_F1, 0, 0, 0
keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
End Sub
D'avance merci pour vos réponses