affichage date et heure d'un autre fichier excel Résolu/Fermé

Question

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 ?

cs_Le Pivert · Answer

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

Affichage date et heure d'un autre fichier excel

1 réponse