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
papou
Bonjour Avec le FileSystemObject et une fonction personnalisée : Function InfosDuFichier() Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified Set fso = Nothing End Function
Cordialement Pascal
"Vinns" a écrit dans le message de news:2270e01c45cf5$cba0ea40$
Bonjour, Existe t'il une formule pour afficher la date d'enregistrement du fichier dans une cellule ? Merci Vinns
Bonjour
Avec le FileSystemObject et une fonction personnalisée :
Function InfosDuFichier()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(ThisWorkbook.FullName)
InfosDuFichier = "Dernière modification le: " & f.DateLastModified
Set fso = Nothing
End Function
Cordialement
Pascal
"Vinns" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2270e01c45cf5$cba0ea40$a001280a@phx.gbl...
Bonjour,
Existe t'il une formule pour afficher la date
d'enregistrement du fichier dans une cellule ?
Merci
Vinns
Bonjour Avec le FileSystemObject et une fonction personnalisée : Function InfosDuFichier() Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified Set fso = Nothing End Function
Cordialement Pascal
"Vinns" a écrit dans le message de news:2270e01c45cf5$cba0ea40$
Bonjour, Existe t'il une formule pour afficher la date d'enregistrement du fichier dans une cellule ? Merci Vinns
ChrisV
Bonjour Vinns,
Function zaza() zaza = "Dernier enregistrement : le " _ & Format(ActiveWorkbook.BuiltinDocumentProperties(12), _ "dd/mm/yyyy hh:mm") End Function
ChrisV
"Vinns" a écrit dans le message de news:2270e01c45cf5$cba0ea40$
Bonjour, Existe t'il une formule pour afficher la date d'enregistrement du fichier dans une cellule ? Merci Vinns
Bonjour Vinns,
Function zaza()
zaza = "Dernier enregistrement : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties(12), _
"dd/mm/yyyy hh:mm")
End Function
ChrisV
"Vinns" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2270e01c45cf5$cba0ea40$a001280a@phx.gbl...
Bonjour,
Existe t'il une formule pour afficher la date
d'enregistrement du fichier dans une cellule ?
Merci
Vinns
