Recuperer date fichier dans une cellule excel

[kikol]

Bonjour,

me revoilà

de plus en plus dur,

j'ai 5 fichiers , A.xls; B.xls, C.xls, D.xls et E.xls

je souhaiterai dans une feuille excel au travers d'une macro récupérer la date du dernier enregistrement de ces fichiers
A1 = date(A)
B1 = date(B) etc.

J'ai chercher mais je n'ai pas trouver chaussure à mon pied.

Merci d'avance.

KIKO

 

[JNP]

Re : Recuperer date fichier dans une cellule excel

Bonsoir Kikol ,
Sous réserve que tes fichiers soient dans le même dossier que le classeur en pièce jointe, une petite fonction personalisée.
Bonne soirée

 

[kikol]

Re : Recuperer date fichier dans une cellule excel

LE soucis c'est que excel ne reconnait pas la formule?

Excel version 2003...

 

[camarchepas]

Re : Recuperer date fichier dans une cellule excel

Bonsoir à tous ,

Une autre version,
le client étant roi , qu'il choisisse sa solution

 

[kikol]

Re : Recuperer date fichier dans une cellule excel

Super le fichier juste pile poil ce qu'il me fallait.

Merci beaucoup, j'analyse cela demain pour essayer de comprendre.

Bonne nuit

 

[YANN-56]

Re : Recuperer date fichier dans une cellule excel

Bonsoir à tous,

Juste pour rire...

Une autre façon de voir:

Private Sub CommandButton1_Click()

Set DOSSIER_A_FOUILLER = CreateObject("Shell.Application")
Set CLASSEURS_EXISTANTS = DOSSIER_A_FOUILLER.Namespace(ActiveWorkbook.Path)

For Each ELEMENT In CLASSEURS_EXISTANTS.Items

On Error Resume Next 'Au cas où il n'y ait pas de Fichier

If CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 2) Like "Feuille*Excel*" Then
 
 N = N + 1
   With Worksheets("Feuil1")
   .Cells(N, 1).Value = CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 0) ' NOM DU CLASSEUR
   .Cells(N, 2).Value = Format(CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 3), "dddd d mmmm yyyy ") ' DATE MISE A JOUR
   .Cells(N, 3).Value = Format(CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 3), "hh ""h.""mm") 'HEURE MISE A JOUR
    End With
 End If
  
Next ELEMENT

End Sub

Avec en option, peut-être un peu plus à
récupérer dans les attributs...

Amicalement.

Classeur joint:

 

[JNP]

Re : Recuperer date fichier dans une cellule excel

Re ,

LE soucis c'est que excel ne reconnait pas la formule?
Excel version 2003...

Techniquement, c'est compatible 2003, vu que c'est les mêmes fonctions que ÇaMarchePas, mais bon ...
Bonne soirée