Affichage date et heure d'un autre fichier excel [Résolu/Fermé]

- - Dernière réponse :  arthur11 - 27 mai 2016 à 13:58
Bonjour à tous

Je travaille sur le fichier Excel suivant:

N:\Logistique\Interne\Appro\Spécifique\copie de spécificité


dans la cellule E17 de l'onglet "MENU" je dois afficher la date et heure du dernier enregistrent du fichier se trouvant ici:
N:\Logistique\Interne\Appro\Spécifique\extrac_nom

Et dans la cellule E18 de l'onglet "MENU" je dois afficher la date et heure du dernier enregistrement du fichier se trouvant ici:
N:\Logistique\Interne\Appro\Spécifique\extrac_besALT

J'ai trouvé du codage qui permet de faire cela pour des fichiers plats: .TXT dans les cellules E13; E14 et E19, le voici :


' Ecriture nom fichier et date
Dim fs, f, S
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("N:\Logistique\Public\Appro\Extractions_Auto_SAP\BESCKD04.TXT")
S = f.DateLastModified
Sheets("menu").Cells(13, 5).Value = S
Sheets("menu").Cells(13, 4).Value = f





Mais avec un fichier excel cela ne marche pas.

Comment puis-je faire ?
Afficher la suite 

1 réponse

Messages postés
6286
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 octobre 2019
400
0
Merci
Bonjour,

Ce code fonctionne très bien!

Dim fs, f, S, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\chemin classeur.xls")'ne pas oublié d'adapter l'extension
S = f.DateLastModified
n = f.Name 'nom classeur
Worksheets("Feuil1").Range("A1").Value = S
Worksheets("Feuil1").Range("B1").Value = n


@+ Le Pivert
bien vu,
en fait il fallait juste ajouter l'extension
merci =)