Microsoft 365 La dernière date d'une modification fichier Excel

job75 à dit:

Bonjour yassine0.13, le fil,

Exécutez cette macro, adaptation de celle du post #1 :

VB:

Private Sub CommandButton3_Click()
Dim chemin$, fichier$, dat$
chemin = "C:\Users\ikram.djerbi\Documents\nv1\"
fichier = Dir(chemin & "Encours ECL du *.xlsx") '1er fichier du dossier
Do While fichier <> ""
    dat = UCase(Format(FileDateTime(chemin & fichier), "dd-mmm-yyyy"))
    If UCase(fichier) Like "*" & dat & ".XLSX" Then
        Application.ScreenUpdating = False
        With Workbooks.Open(chemin & fichier)
            .Sheets("Template ECL").Cells.Copy ThisWorkbook.Sheets("J-1 ECL").Range("A1")
            .Close False
        End With
        Exit Do
    End If
    fichier = Dir
Loop
End Sub

A+

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Avec un code trouvé sur le forum

comment récupérer dans une cellule la date de création d'un fichier Excel

bonjour à tous merci pour tous les excelliens qui se pencheront sur ma question je voudrais récupérer dans une cellule (par exemple la cellule A5) la date à laquelle le fichier en cours de travail d'un répertoire donné a été créé par exemple la date du fichier excel nommé : feuille1.xls du...

excel-downloads.com

VB:

Sub dater()
Range("A5") = ActiveWorkbook.BuiltinDocumentProperties("creation date")
End Sub

A mettre dans la feuille
Format de cellule "jj/mm/aaaa hh:mm"

JHA

Cliquez pour agrandir...