yassine.013
XLDnaute Nouveau
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
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