Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
Ceci dans le ThisWorkbook du classeur en question. '--------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Feuil1.[A1] = Now() End Sub '-------------- "Feuil1" étant le code name de la feuille ( A adapter)
-- Salutations JJ
"Jeepy" a écrit dans le message de news:
Bonjour à tous,
Sur un fichier Excel qui se trouve sur un serveur, peut-on indiquer (de façon simple) dans une cellule le moment du dernier enregistrement ?
Si oui, comment procéder ?
D'avance, un grand merci pour votre aide...
Bonjour,
Ceci dans le ThisWorkbook du classeur en question.
'---------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.[A1] = Now()
End Sub
'--------------
"Feuil1" étant le code name de la feuille ( A adapter)
--
Salutations
JJ
"Jeepy" <Jeepy@belgacom.be> a écrit dans le message de news: OtEOcFPpKHA.5508@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Sur un fichier Excel qui se trouve sur un serveur, peut-on indiquer (de
façon simple) dans une cellule le moment du dernier enregistrement ?
Ceci dans le ThisWorkbook du classeur en question. '--------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Feuil1.[A1] = Now() End Sub '-------------- "Feuil1" étant le code name de la feuille ( A adapter)
-- Salutations JJ
"Jeepy" a écrit dans le message de news:
Bonjour à tous,
Sur un fichier Excel qui se trouve sur un serveur, peut-on indiquer (de façon simple) dans une cellule le moment du dernier enregistrement ?
Si oui, comment procéder ?
D'avance, un grand merci pour votre aide...
FdeCourt
Salut,
Avec cette fonction :
Function LastSave() On Error GoTo err_handler Application.Volatile LastSave = ThisWorkbook.BuiltinDocumentProperties("Last save time") On Error GoTo 0 Exit Function err_handler: LastSave = "error" End Function
Cordialement,
F.
Salut,
Avec cette fonction :
Function LastSave()
On Error GoTo err_handler
Application.Volatile
LastSave = ThisWorkbook.BuiltinDocumentProperties("Last save
time")
On Error GoTo 0
Exit Function
err_handler:
LastSave = "error"
End Function
Function LastSave() On Error GoTo err_handler Application.Volatile LastSave = ThisWorkbook.BuiltinDocumentProperties("Last save time") On Error GoTo 0 Exit Function err_handler: LastSave = "error" End Function