Désolé, mais je ne trouve pas l'erreur. Je suis débutant, et bien limité dans la réflexion en vba (...).
Private Sub Workbook_Deactivate()
Me.Worksheets(1).[IV1].Copy 'vide le presse-papier
Application.CutCopyMode = False
On Error Resume Next
Application.OnTime t, "ControleImage", , False
End Sub
Public Sub CloseSurTimer() 'revue par JOB75
On Error Resume Next
Application.OnTime t, "ControleImage", Schedule:=False
ThisWorkbook.Close Not WbkRO
End Sub
J'aurai voulu pouvoir fermer complètement le programme excel lorsque cette fonction timer se déclenche.
Public Sub CloseSurTimer() 'revue par JOB75
flag = True
On Error Resume Next
Application.OnTime t, "ControleImage", Schedule:=False
ThisWorkbook.Close Not WbkRO
End Sub
If flag Then
Application.DisplayAlerts = False 'si d'autres fichiers sont ouverts
Application.Quit
End If
Application.DisplayAlerts = False 'si d'autres fichiers sont ouverts
Application.Quit