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ération de la date de création d'un fichier

Récupération de la date de création d'un fichier

3 réponses
Avatar
adrimal
Bonjour à tous,

Je souhaite récupérer dans une cellule A1 de mon fichier Toto.xls la date de
création d'un fichier excel fermé Titi.xls.
--
Merci de votre aide
Adrimal
Signaler un problème avec ce contenu

3 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
stéphane
Bonjour,

ci-joint procédure trouvée dans l'aide

Sub ShowFileInfo(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = "Créé le : " & f.DateCreated
MsgBox s
en sub

Stéphane

"adrimal" a écrit dans le message de
news:
Bonjour à tous,

Je souhaite récupérer dans une cellule A1 de mon fichier Toto.xls la date
de
création d'un fichier excel fermé Titi.xls.
--
Merci de votre aide
Adrimal


Avatar
adrimal
Merci Stéphane mais je suis novice en VBA et ne parviens pas à faire marcher
cette procédure !
--
Merci de votre aide
Adrimal



Bonjour,

ci-joint procédure trouvée dans l'aide

Sub ShowFileInfo(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = "Créé le : " & f.DateCreated
MsgBox s
en sub

Stéphane

"adrimal" a écrit dans le message de
news:
Bonjour à tous,

Je souhaite récupérer dans une cellule A1 de mon fichier Toto.xls la date
de
création d'un fichier excel fermé Titi.xls.
--
Merci de votre aide
Adrimal







Avatar
stéphane
ci-joint fichier exemple avec fonction personnalisé.
Normalement il doit t'afficher la date de création de l'explorer windows.
(c:windowsexplorer.exe) en A1.
A toi de l'adapter pour ton utilisation.

http://cjoint.com/?kjnCjNS2Ho

Function ShowFileInfo(NomFichierComplet) As Date
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(NomFichierComplet)
ShowFileInfo = f.datecreated
End Function



Stéphane


"adrimal" a écrit dans le message de
news:
Merci Stéphane mais je suis novice en VBA et ne parviens pas à faire
marcher
cette procédure !
--
Merci de votre aide
Adrimal



Bonjour,

ci-joint procédure trouvée dans l'aide

Sub ShowFileInfo(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = "Créé le : " & f.DateCreated
MsgBox s
en sub

Stéphane

"adrimal" a écrit dans le message de
news:
Bonjour à tous,

Je souhaite récupérer dans une cellule A1 de mon fichier Toto.xls la
date
de
création d'un fichier excel fermé Titi.xls.
--
Merci de votre aide
Adrimal