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

[yassine.013]

Bonjour,

Je souhaite trouver la dernière date d'une modification afin de remplacer dans le format(Now) par la dernière modification svp



Private Sub CommandButton3_Click()
Sheets("J-1 ECL").Cells.Clear

Application.ScreenUpdating = False

Set classeurFermé = Workbooks.Open("C:\Users\ikram.djerbi\Documents\nv1\Encours ECL du " & Format(Now(), "DD-MMM-YYYY") & ".xlsx")
classeurFermé.Sheets("Template ECL").Cells.Copy ThisWorkbook.Worksheets("J-1 ECL").Range("A1")

classeurFermé.Close SaveChanges:=False
Application.ScreenUpdating = False


Merci de votre retour

 

[kiki29]

Salut, voir FileDateTime

 

[JHA]

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

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

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

JHA

 

[job75]

Bonjour yassine0.13, le fil,

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

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+

 

[job75]

Notez que s'il y a plusieurs fichiers qui correspondent au critère c'est le 1er trouvé qui est copié.

 

[yassine.013]

Bonjour yassine0.13, le fil,

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

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+

Parfait je vous remercie

 

[yassine.013]

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

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

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

JHA

Merci