Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Récupérer la date d'un fichier

Récupérer la date d'un fichier

4 réponses
Avatar
galopin01
bonjour,
Est-il possible de récupérer la date de la dernière copie d'un fichier de
sauvegarde ?
(pour effectuer une copie périodique)
Il s'agit de récupérer la date du système telle qu'on la voit dans le
navigateur pour monter une macro/fonction du genre :

Fonction LitAttributDateEnreg (NomFich$) As Date

Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
papou
Bonjour
Par exemple :
Function DateSauvegarde(NomCompletfic As String)
Dim Fso, Fic
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fic = Fso.GetFile(NomCompletfic)
DateSauvegarde = FormatDateTime(Fic.DateLastModified, 2)
End Function
Sub Test()
MsgBox DateSauvegarde("c:TestsTests05032005.xls")
End Sub

Cordialement
Pascal

"galopin01" a écrit dans le message de news:

bonjour,
Est-il possible de récupérer la date de la dernière copie d'un fichier de
sauvegarde ?
(pour effectuer une copie périodique)
Il s'agit de récupérer la date du système telle qu'on la voit dans le
navigateur pour monter une macro/fonction du genre :

Fonction LitAttributDateEnreg (NomFich$) As Date

Merci



Avatar
Alain CROS
Bonjour.

Pourquoi fso ?

ActiveWorkbook.BuiltinDocumentProperties ("Last save time")

Alain CROS

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: #
| Bonjour
| Par exemple :
| Function DateSauvegarde(NomCompletfic As String)
| Dim Fso, Fic
| Set Fso = CreateObject("Scripting.FileSystemObject")
| Set Fic = Fso.GetFile(NomCompletfic)
| DateSauvegarde = FormatDateTime(Fic.DateLastModified, 2)
| End Function
| Sub Test()
| MsgBox DateSauvegarde("c:TestsTests05032005.xls")
| End Sub
|
| Cordialement
| Pascal
|
| "galopin01" a écrit dans le message de news:
|
| > bonjour,
| > Est-il possible de récupérer la date de la dernière copie d'un fichier de
| > sauvegarde ?
| > (pour effectuer une copie périodique)
| > Il s'agit de récupérer la date du système telle qu'on la voit dans le
| > navigateur pour monter une macro/fonction du genre :
| >
| > Fonction LitAttributDateEnreg (NomFich$) As Date
| >
| > Merci
| >
|
|
Avatar
papou
Bonjour Alain
Parce que la propriété n'est pas accessible si le classeur n'est pas ouvert.
Cordialement
Pascal

"Alain CROS" a écrit dans le message de news:
uTLq4$
Bonjour.

Pourquoi fso ?

ActiveWorkbook.BuiltinDocumentProperties ("Last save time")

Alain CROS

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
#
| Bonjour
| Par exemple :
| Function DateSauvegarde(NomCompletfic As String)
| Dim Fso, Fic
| Set Fso = CreateObject("Scripting.FileSystemObject")
| Set Fic = Fso.GetFile(NomCompletfic)
| DateSauvegarde = FormatDateTime(Fic.DateLastModified, 2)
| End Function
| Sub Test()
| MsgBox DateSauvegarde("c:TestsTests05032005.xls")
| End Sub
|
| Cordialement
| Pascal
|
| "galopin01" a écrit dans le message de
news:
|
| > bonjour,
| > Est-il possible de récupérer la date de la dernière copie d'un fichier
de
| > sauvegarde ?
| > (pour effectuer une copie périodique)
| > Il s'agit de récupérer la date du système telle qu'on la voit dans le
| > navigateur pour monter une macro/fonction du genre :
| >
| > Fonction LitAttributDateEnreg (NomFich$) As Date
| >
| > Merci
| >
|
|





Avatar
Jacques93
Bonjour Pascal et Alain,

Pourquoi pas la fonction :

FileDateTime (NomDuFichier) ?

Bonjour Alain
Parce que la propriété n'est pas accessible si le classeur n'est pas ouvert.
Cordialement
Pascal

"Alain CROS" a écrit dans le message de news:
uTLq4$

Bonjour.

Pourquoi fso ?

ActiveWorkbook.BuiltinDocumentProperties ("Last save time")

Alain CROS

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
#
| Bonjour
| Par exemple :
| Function DateSauvegarde(NomCompletfic As String)
| Dim Fso, Fic
| Set Fso = CreateObject("Scripting.FileSystemObject")
| Set Fic = Fso.GetFile(NomCompletfic)
| DateSauvegarde = FormatDateTime(Fic.DateLastModified, 2)
| End Function
| Sub Test()
| MsgBox DateSauvegarde("c:TestsTests05032005.xls")
| End Sub
|
| Cordialement
| Pascal
|
| "galopin01" a écrit dans le message de
news:
|
| > bonjour,
| > Est-il possible de récupérer la date de la dernière copie d'un fichier
de
| > sauvegarde ?
| > (pour effectuer une copie périodique)
| > Il s'agit de récupérer la date du système telle qu'on la voit dans le
| > navigateur pour monter une macro/fonction du genre :
| >
| > Fonction LitAttributDateEnreg (NomFich$) As Date
| >
| > Merci
| >
|
|










--
Cordialement,

Jacques.