[b]private sub Workbook_BeforeClose( // ...??? ThisWorkbook.Close ... End Sub /b
ActiveWorkbook.Save
Application.DisplayAlerts = True
' Triche en déclarant le classeur sauvegardé ThisWorkbook.Saved = True ' Fermeture qui ne devrait pas poser la question ThisWorkbook.Close
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTLwb = ThisWorkbook.Nameà l'intrieur d'une sub, Donc c'est pas ça...
ThisWorkbook.Saved = True ThisWorkbook.Closesans succès...
Application.ThisWorkbook.Closene marche pas non plus.
Application.Quitmarche!
ThisWorkbook.Save.
Else ThisWorkbook.Close savechanges:=False End Ifça marche
If Sheets("Bridge").Range("C1").Value <> "" Then ThisWorkbook.Close savechanges:=False
If Sheets("Bridge").Range("C1").Value = "" Then .../... ThisWorkbook.Close savechanges:=False End if
Private Sub Workbook_BeforeClose(Cancel As Boolean)est relancé par
ThisWorkbook.Close savechanges:=False
If Sheets("Bridge").Range("C3").Value = 1 Then Exit Suben "tête de gondole"
If Sheets("Bridge").Range("C1").Value <> "" _ Then ThisWorkbook.Close savechanges:=False If Sheets("Bridge").Range("C1").Value = "" Then .../... Sheets("Bridge").Range("C3").Value = 1 ThisWorkbook.Save ThisWorkbook.Close savechanges:=False End If End Sub
MsgBox ThisWorkbook.Name & vbCrLf & ActiveWorkbook.Name
ThisWorkbook.Close savechanges:=False
ActiveWorkbook.Save
ThisWorkbook.Close savechanges:= False
ThisWorkbook.Save ThisWorkbook.Close savechanges:=False
ThisWorkbook.Close savechanges: =True.