Bonjour à tous,
J'ai 2 fichiers excel qui comporte les même macro
Lorseque j'en ouvre un l'autre se referme automatiquement. Est ce normal ?
Merci d'avance
J'ai 2 fichiers excel qui comporte les même macro
Code:
Private Sub Workbook_Open()
ProchainArret
Sheets("AIDE").Activate
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False
ProchainArret
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
'ThisWorkbook.Saved = True
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False ' annule événnement
End Sub
Code:
Public HeureArrêt
Sub ProchainArret()
HeureArrêt = Now + TimeValue("00:10:00")
Application.OnTime HeureArrêt, "Fin"
Sheets(1).[A1] = HeureArrêt
End Sub
Sub Fin()
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnemennt
Workbooks.Open Filename:="MessageAvertissement.xls"
ThisWorkbook.Close True
End Sub
Lorseque j'en ouvre un l'autre se referme automatiquement. Est ce normal ?
Merci d'avance