Affichage date et heure d'un autre fichier excel

Résolu/Fermé

arthur11 - 27 mai 2016 à 10:57
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 ?

A voir également:

Affichage date et heure d'un autre fichier excel
Fichier rar - Guide
Liste déroulante excel - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par cs_Le Pivert le 27/05/2016 à 12:06

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

arthur11
27 mai 2016 à 13:58

bien vu,
en fait il fallait juste ajouter l'extension
merci =)

Discussions similaires

comment donner les droits sur fichier partage

Discussions similaires

Newsletters