Simulation de CTRL + F1 avec macro

[JBARBE]

Bonjour,

Lors de la fermeture de mon fichier avec le bouton " quitter " la simulation CTRL + F1 ne fonctionne pas bien !!!

Voici mon code : et mon fichier !

Option Explicit

Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
    
Sub Quitter()
Application.ScreenUpdating = False
 'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
    
    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
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
    ActiveWorkbook.Save
    Application.Quit
Application.ScreenUpdating = True
End Sub

Sub Auto_Open()
'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
    
    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

MERCI à l'avance !

 

[Modeste geedee]

Re : Simulation de CTRL + F1 avec macro

Bonsour®
pourquoi ne pas utiliser simplement :

SendKeys "^{F1}"

 

[JBARBE]

Re : Simulation de CTRL + F1 avec macro

J'ai appliqué cette exemple pour quitter et cela ne fonctionne pas !

Sub quitter()
SendKeys "^{F1}"
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
    ActiveWorkbook.Save
    Application.Quit
End Sub

 

[Modeste geedee]

Re : Simulation de CTRL + F1 avec macro

J'ai appliqué cette exemple pour quitter et cela ne fonctionne pas !

Sub quitter()
SendKeys "^{F1}"
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
    ActiveWorkbook.Save
    Application.Quit
End Sub

😕

j'ai seulement mis Application.Quitter en commentaire pour voir l'action

Sub Quitter()
SendKeys "^{F1}"
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
    ActiveWorkbook.Save
    'Application.Quit
Application.ScreenUpdating = True
End Sub

Sub Auto_Open()
SendKeys "^{F1}"
End Sub

 

[JBARBE]

Re : Simulation de CTRL + F1 avec macro

Merci pour la réponse mais j'ai besoin que le fichier Quitte en appliquant CTRL+F1 !!!!

 

[Modeste geedee]

Re : Simulation de CTRL + F1 avec macro

Merci pour la réponse mais j'ai besoin que le fichier Quitte en appliquant CTRL+F1 !!!!

!!!!
😎 c'est pourtant ce que cela fait lorsque l'on réactive la ligne :
'Application.Quit