J'ai récupéré la fonction suivante pour définir la date de création d'un
fichier, mais je n'arrive pas à l'utiliser.
Quelqu'un peut-il m'aider ???
Function DateCreationFichier(nf)
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nf)
DateCreationFichier = f.DateCreated
End Function
Bonjour Il s'agit d'une fonction. Il faut l'utiliser dans une procédure macro. Par exemple : Sub Macro1 MsgBox DateCreationFichier("C:Toto.xls") End Sub
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
J'ai récupéré la fonction suivante pour définir la date de création d'un fichier, mais je n'arrive pas à l'utiliser.
Quelqu'un peut-il m'aider ???
Function DateCreationFichier(nf) Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(nf) DateCreationFichier = f.DateCreated End Function
nf doit-il être défini ?
-- Merci pour vos réponses.
Bonjour
Il s'agit d'une fonction.
Il faut l'utiliser dans une procédure macro.
Par exemple :
Sub Macro1
MsgBox DateCreationFichier("C:Toto.xls")
End Sub
Cordialement
Pascal
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
BB2BC465-797F-4CAD-97D6-EF6B36AC02E4@microsoft.com...
Bonjour,
J'ai récupéré la fonction suivante pour définir la date de création d'un
fichier, mais je n'arrive pas à l'utiliser.
Quelqu'un peut-il m'aider ???
Function DateCreationFichier(nf)
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nf)
DateCreationFichier = f.DateCreated
End Function
Bonjour Il s'agit d'une fonction. Il faut l'utiliser dans une procédure macro. Par exemple : Sub Macro1 MsgBox DateCreationFichier("C:Toto.xls") End Sub
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
J'ai récupéré la fonction suivante pour définir la date de création d'un fichier, mais je n'arrive pas à l'utiliser.
Quelqu'un peut-il m'aider ???
Function DateCreationFichier(nf) Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(nf) DateCreationFichier = f.DateCreated End Function
nf doit-il être défini ?
-- Merci pour vos réponses.
JB
Bonjour,
Il faut placer ce code dans un module:
-Alt+F11 -Insertion/Module
Utilisation dans le tableur : ÚteCreationFichier("C:autoexec.bat") Dans VBA: Msgbox DateCreationFichier("C:autoexec.bat")
J'ai récupéré la fonction suivante pour définir la date de créa tion d'un fichier, mais je n'arrive pas à l'utiliser.
Quelqu'un peut-il m'aider ???
Function DateCreationFichier(nf) Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(nf) DateCreationFichier = f.DateCreated End Function
nf doit-il être défini ?
-- Merci pour vos réponses.
Bonjour,
Il faut placer ce code dans un module:
-Alt+F11
-Insertion/Module
Utilisation dans le tableur : =DateCreationFichier("C:autoexec.bat")
Dans VBA: Msgbox DateCreationFichier("C:autoexec.bat")
On 11 mai, 09:41, Yvan <Y...@discussions.microsoft.com> wrote:
Bonjour,
J'ai récupéré la fonction suivante pour définir la date de créa tion d'un
fichier, mais je n'arrive pas à l'utiliser.
Quelqu'un peut-il m'aider ???
Function DateCreationFichier(nf)
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nf)
DateCreationFichier = f.DateCreated
End Function
J'ai récupéré la fonction suivante pour définir la date de créa tion d'un fichier, mais je n'arrive pas à l'utiliser.
Quelqu'un peut-il m'aider ???
Function DateCreationFichier(nf) Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(nf) DateCreationFichier = f.DateCreated End Function
nf doit-il être défini ?
-- Merci pour vos réponses.
Youky
Bonjour, Si tu veux récupérer la date de créationde ton classeur: MsgBox ActiveWorkbook.BuiltinDocumentProperties(11) Youky
Bonjour,
Si tu veux récupérer la date de créationde ton classeur:
MsgBox ActiveWorkbook.BuiltinDocumentProperties(11)
Youky
