Code pour sélectionner Aucun bouton dans la boîte de message

Question

En essayant de comprendre comment utiliser le code vba pour sélectionner le bouton non dans une boîte de message. J'ai un classeur qui ouvre et ferme un autre classeur. Lorsque le classeur se ferme, une boîte de message apparaît, c'est-à-dire "Sélectionnez oui ou non". L'utilisateur devra normalement manuellement cliquer sur non. Existe-t-il un moyen de le faire avec du code?

Il s'agit du premier classeur qui ouvre le deuxième classeur avec la zone de message.

Option Explicit 

Private Sub DONEBTN_Click() 
Dim WRKBK2 As Workbook 
Dim Name As String 

Name = "Someones Name" 

Set WRKBK2 = Workbooks.Open("C:\Second Workbook.xlsm")   

WRKBK2.Sheets(1).Range("H7").Value = Name     'Name   

WRKBK2.SaveAs Filename:="C:\New File Name For Workbook2.xlsm", _ 
FileFormat:=52, CreateBackup:=False, local:=True 

Application.DisplayAlerts = False 
WRKBK2.Close 
Application.ScreenUpdating = True 
End Sub 

C'est le code situé dans le deuxième classeur qui est sous ThisWorkbook Private Sub Workbook_BeforeClose (Cancel As Boolean)

Option Explicit 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Dim MSG1 As String 

MSG1 = MsgBox("Select yes or no?", vbYesNo, "Message Box") 

If MSG1 = vbYes Then 

' Code does something 

Else 

ThisWorkbook.Save 

ThisWorkbook.Close 


End If 
End Sub 

Answer 1

Si vous faites référence à la "Enregistrer le classeur?" utilisez l'option SaveChanges de la méthode Workbook.Close ou Application.DisplayAlerts = False. L'exemple ci-dessous montre les deux.

Application.DisplayAlerts = False 
Workbook("Sample Workbook.xlsx").Close SaveChanges:=False 'Or use .True to save the workbook before closing 
Application.DisplayAlerts = True