OVH Cloud OVH Cloud

Exécuter " Alt F4 " en VBA, ( svp )

2 réponses
Avatar
DC
Bonjour à tous,............................bonne journée !

Voilà, j'aimerais pouvoir insèrer dans une macro, une ligne ou plus, d'une
procédure VBA, éxécutant la fonction de "Alt F4 " du clavier, est-ce
possible ? Voici la macro en question,
( Merci d'y penser ! )
'-------------------------------------------------
Sub fermoi()
Application.DisplayAlerts = False
Application.Quit
End Sub
'------------------------------------------------
Cordialement ! DC

2 réponses

Avatar
Daniel.j
comme ca par exemple

Application.SendKeys "%{F4}"

Daniel
===================== FAQ MPFE
http://dj.joss.free.fr/faq.htm
=====================
"DC" a écrit dans le message de news:
4406cc5d$0$18326$
Bonjour à tous,............................bonne journée !

Voilà, j'aimerais pouvoir insèrer dans une macro, une ligne ou plus, d'une
procédure VBA, éxécutant la fonction de "Alt F4 " du clavier, est-ce
possible ? Voici la macro en question,
( Merci d'y penser ! )
'-------------------------------------------------
Sub fermoi()
Application.DisplayAlerts = False
Application.Quit
End Sub
'------------------------------------------------
Cordialement ! DC




Avatar
DC
Re-bonjour Daniel.J,

Merci de ta réponse positive, c'est parfait et çà fonctionne à merveille,
pour information, voici la macro au complet,
'-------------------------------------------------
Sub fermoi()
Application.SendKeys "%{F4}"
Application.DisplayAlerts = False
Application.Quit
End Sub
'------------------------------------------------
Cordialement ! un grand Merci ! DC

"Daniel.j" a écrit dans le message de news:

comme ca par exemple

Application.SendKeys "%{F4}"

Daniel
===================== > FAQ MPFE
http://dj.joss.free.fr/faq.htm
===================== >
"DC" a écrit dans le message de news:
4406cc5d$0$18326$
Bonjour à tous,............................bonne journée !

Voilà, j'aimerais pouvoir insèrer dans une macro, une ligne ou plus,
d'une procédure VBA, éxécutant la fonction de "Alt F4 " du clavier,
est-ce possible ? Voici la macro en question,
( Merci d'y penser ! )
'-------------------------------------------------
Sub fermoi()
Application.DisplayAlerts = False
Application.Quit
End Sub
'------------------------------------------------
Cordialement ! DC