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
JB
Bonjour,
Function DateCreationFichier(nf) Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(nf) DateCreationFichier = f.DateCreated End Function
Function DateModifFichier(nf) DateModifFichier = FileDateTime(nf) End Function
Quelle instruction permet de récupérer la date de création d'un fic hier Excel ???
-- Merci pour vos réponses.
Bonjour,
Function DateCreationFichier(nf)
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nf)
DateCreationFichier = f.DateCreated
End Function
Function DateModifFichier(nf)
DateModifFichier = FileDateTime(nf)
End Function
Function DateCreationFichier(nf) Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(nf) DateCreationFichier = f.DateCreated End Function
Function DateModifFichier(nf) DateModifFichier = FileDateTime(nf) End Function
-- FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"Yvan" a écrit dans le message de news:
Bonjour,
Quelle instruction permet de récupérer la date de création d'un fichier Excel ???
-- Merci pour vos réponses.
Yvan
Merci pour votre réponse, mais comment faut-il saisir la formule ???
Lorsque je fais "Entrée", le résultat est #Valeur !!!
-- Merci pour vos réponses.
Bonjour,
Function DateCreationFichier(nf) Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(nf) DateCreationFichier = f.DateCreated End Function
Function DateModifFichier(nf) DateModifFichier = FileDateTime(nf) End Function
Quelle instruction permet de récupérer la date de création d'un fichier Excel ???
-- Merci pour vos réponses.
Merci pour votre réponse, mais comment faut-il saisir la formule ???
Lorsque je fais "Entrée", le résultat est #Valeur !!!
--
Merci pour vos réponses.
Bonjour,
Function DateCreationFichier(nf)
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nf)
DateCreationFichier = f.DateCreated
End Function
Function DateModifFichier(nf)
DateModifFichier = FileDateTime(nf)
End Function
Merci pour votre réponse, mais comment faut-il saisir la formule ???
Lorsque je fais "Entrée", le résultat est #Valeur !!!
-- Merci pour vos réponses.
Bonjour,
Function DateCreationFichier(nf) Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(nf) DateCreationFichier = f.DateCreated End Function
Function DateModifFichier(nf) DateModifFichier = FileDateTime(nf) End Function