date du jour et heure si modif sur la feuille et suite!

[saint_marc]

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!

 

[john]

Re : date du jour et heure si modif sur la feuille et suite!

Bonjour,

tu peux faire comme ceci :

Dim Date_du As String
ancien_nom = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
chemin = Replace(ActiveWorkbook.Path, ":", "_")
chemin = Replace(chemin, "\", "_")
Date_du = "exploitation CH " & Format(Now, " dd_mm_yyyy") & "_" & chemin & ".xlsm"
On Error GoTo fin
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Date_du
Kill ancien_nom
fin:

Mais attention que j'ai dû supprimer les : et les \ car ce sont des caractères qui ne peuvent pas êtres placés dans un nom de fichier sinon erreur !!!

BàT.

John

 

[saint_marc]

Re : date du jour et heure si modif sur la feuille et suite!

bonjour
merci john
je desesperais d'avoir une réponse
je viens de voir la tienne qu'aujourd'hui 15 aout
saint marc