Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1")=VBA.Now
End Sub
Bien, alors dans l'explorateur VBA, dans "ThisWorkbook" : Regarde la pièce jointe 1156789
Copier/coller ceci :
VB:Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("A1")=VBA.Now End Sub
Bonne jour
MERCIBien, alors dans l'explorateur VBA, dans "ThisWorkbook" : Regarde la pièce jointe 1156789
Copier/coller ceci :
VB:Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("A1")=VBA.Now End Sub
Bonne journée,