Option explicite
BTN privé de WithEvents comme CommandBarButton
btn_Click secondaire privé (ByVal CTRL comme Office.CommandBarButton, CancelDefault comme booléen)
'examiner votre état pour décommander l'envoi
Si MsgBox (« souhaitez-vous envoyer ? », vbYesNo) = vbNo alors
CancelDefault = rectifient
Finir si
Finir le sous-marin
Workbook_Open secondaire privé ()
Placer BTN = Application.CommandBars.FindControl (identification : =2188)
Finir le sous-marin
|