Range("A1").Value = CDate(Workbooks("nomduclasseur.xls").BuiltinDocumentProperties("Last save time"))
Function DernièreSauvegarde()
Application.Volatile
DernièreSauvegarde = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function
Lz code a l'air de carrément bien marché...jdis à l'air car jverrais demain si ca me conserve la date d'aujourd'hui de modif...Bonjour,
Dans un module
Code:Function DernièreSauvegarde() Application.Volatile DernièreSauvegarde = ThisWorkbook.BuiltinDocumentProperties("Last Save Time") End Function
Dans une cellule =DernièreSauvegarde()
JB
Bonjour kinx, le forum,
voici un classeur qui a ete fait grace au forum, je n`en suis pas l`auteur,
a toi de voir si cela te convient ..
attention j`ai bloque les option de sauvegarde
enjoy ..