Private Sub Workbook_Open()
ControleImage
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime t, "ControleImage", , False
Me.Save
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub
Public t As Date
Sub ControleImage()
Dim a As String
On Error Resume Next
a = Selection.Address
If Err Then Selection.Delete
t = Now + 1 / 86400
Application.OnTime t, "ControleImage"
End Sub
Private Sub Workbook_Activate()
ControleImage
End Sub
Private Sub Workbook_Deactivate()
Application.OnTime t, "ControleImage", , False
Me.Worksheets(1).[A1].Copy 'vide le presse-papier
Application.CutCopyMode = False
End Sub
Public t As Date
Sub ControleImage()
Dim a As String
ThisWorkbook.Worksheets(1).[IV1].Copy 'vide le presse-papier
Application.CutCopyMode = False
On Error Resume Next
a = Selection.Address
If Err Then Selection.Delete
t = Now + 1 / 86400
Application.OnTime t, "ControleImage"
End Sub
Sub CopieFeuille()
Workbooks.Add
Workbooks("ImprEcran(3).xls").Worksheets(1).Cells.Copy Cells
End Sub
If Workbooks.Count > 1 Then
Application.DisplayAlerts = False
Application.Quit
End If