999miguy
XLDnaute Nouveau
Bonjour à tous.
Je viens de réaliser une petite application.
Je souhaite qu’elle se lance en plein écran et ajouter un bouton quitter qui ferme tout (Excel compris).
Je suis allé voir dans les forums et j’ai trouvé ces conseils :
Faire ceci pour le plein écran :
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub
À mettre dans ThisWorkbook
Faire ceci pour le bouton :
SendKeys ("%{F4}" )
à coller dans ton bouton
Ou
Windows.Application.Quit
Ou
Appexcel.Application.Quit
Ou
'Quitte Excel
Application.Quit
Étant donné que je débute le VBA, puis-je avoir quelques explications car j’ai essayé et rien ne se passe.
MERCI D’AVANCE !!!
Je viens de réaliser une petite application.
Je souhaite qu’elle se lance en plein écran et ajouter un bouton quitter qui ferme tout (Excel compris).
Je suis allé voir dans les forums et j’ai trouvé ces conseils :
Faire ceci pour le plein écran :
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub
À mettre dans ThisWorkbook
Faire ceci pour le bouton :
SendKeys ("%{F4}" )
à coller dans ton bouton
Ou
Windows.Application.Quit
Ou
Appexcel.Application.Quit
Ou
'Quitte Excel
Application.Quit
Étant donné que je débute le VBA, puis-je avoir quelques explications car j’ai essayé et rien ne se passe.
MERCI D’AVANCE !!!