Option Explicit
Sub test()
' Application.SendKeys "%(F,10)", True 'ne fonctionne pas
Application.SendKeys "^p", True
Application.SendKeys "%v", True
Application.SendKeys "{END}", True
Application.SendKeys "%a", True
Application.SendKeys "{END}", True
Application.SendKeys "{UP}", True
Application.SendKeys "{UP}", True
Application.SendKeys "{UP}", True
Application.SendKeys "{UP}", True
Application.SendKeys "{UP}", True
' Application.SendKeys "%v", True
' Application.SendKeys "~", True
' Application.SendKeys "{TAB}", True
' Application.SendKeys "~", True
End Sub
Sub test2()
' Appication.SendKeys "%(F,10)", True 'ne fonctionne pas
Application.SendKeys "^p", True
Application.SendKeys "%v", True
Application.SendKeys "c", True
Application.SendKeys "c", True
Application.SendKeys "%a", True
Application.SendKeys "%e", True
Application.SendKeys "%p", True
Application.SendKeys "%p", True
' Application.Wait (Now + TimeValue("0:00:01"))
' Application.SendKeys "%v", True
' Application.SendKeys "~", True
' Application.SendKeys "{TAB}", True
' Application.SendKeys "~", True
' DoEvents
End Sub
Sub RegReadVBA()
Dim Val As Long
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
Val = wsh.RegRead("HKCU\Software\Microsoft\Office\16.0\Excel\Security\AccessVBOM")
' MsgBox Val
If Val = 0 Then Call test
End Sub
Sub atest()
Call RegReadVBA
End Sub