Affichage date et heure d'un autre fichier excel

Résolu
arthur11 -  
 arthur11 -
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:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
arthur11
 
bien vu,
en fait il fallait juste ajouter l'extension
merci =)
0