S
saint_marc
Guest
bonjour à tous
dernierement et je ne rappelle plus qui m'a donné cette solution pour qu'en fermant mon fichier celui ci changeait de nom suivant la date
merci encore à son auteur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Date_du As String
Date_du = "exploitation CH " & Format(Now, " dd_mm_yyyy") & ".xlsm"
On Error GoTo fin
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Date_du
fin:
End Sub
Je souhaiterais maintenant qu' a la suite de cette macro,il y ait non seulement la date de modif, mais aussi le chemin du fichieret pour terminer effacer l'ancienne version
Merci d'avance à tous vous etes au top!
dernierement et je ne rappelle plus qui m'a donné cette solution pour qu'en fermant mon fichier celui ci changeait de nom suivant la date
merci encore à son auteur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Date_du As String
Date_du = "exploitation CH " & Format(Now, " dd_mm_yyyy") & ".xlsm"
On Error GoTo fin
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Date_du
fin:
End Sub
Je souhaiterais maintenant qu' a la suite de cette macro,il y ait non seulement la date de modif, mais aussi le chemin du fichieret pour terminer effacer l'ancienne version
Merci d'avance à tous vous etes au top!