Dim O As Boolean
Private Sub Workbook_Open()
O = True
End Sub
Private Sub Workbook_Activate()
Recuperation "heure à recuperer test(1).xls", "Stat(1)", "A6:G17"
Recuperation "heure à recuperer test(2).xls", "Stat(2)", "A3:G14"
Recuperation "heure à recuperer test(3).xls", "Stat(3)", "A8:G19"
If O Then Me.Saved = True 'évite le message à la fermeture si pas d'autres modifications
O = False
End Sub