Code macro

est ce que vou pouvez m'aider SVP à comprendre ce code

Dim dateactuelle As Date

Dim mois As Integer

Dim varmois As String

Dim recupdate, nomfic As String

On Error GoTo gerErrSauv

annee = Year(Date)

strfilepath = "\\Frbmsbur041\Tdb$\Cat\Management\Dailly\"

dateactuelle = Date

recupdate = Year(dateactuelle) & Month(dateactuelle) & Day(dateactuelle)

' si la valeur jour est sur un caractère

If Len(Day(dateactuelle)) = 1 Then

recupdate = Left(recupdate, Len(recupdate) - 1) + "0" + Right(recupdate, 1)

End If

'si la valeur mois est sur un caractère

If Len(Month(dateactuelle)) = 1 Then

recupdate = Left(recupdate, Len(recupdate) - 3) + "0" + Right(recupdate, 3)

End If

'nom du fichier

nomfic = "TdbCAT DW_STD_IM41 Closed MTD by Company-SLA_" & recupdate & ".xls"

ChDir strfilepath

ActiveWorkbook.SaveAs Filename:=strfilepath & nomfic _

, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Close

ActiveWorkbook.Close

Exit Sub

gerErrSauv:

MsgBox "erreur dans la sauvegarde du fichier " & Chr(10) & Chr(13) & Err.Number & " " & Err.Description

merciiiiiiiiiiiiiiiiiiiiiii

https://forum.excel-pratique.com/viewtopic.php?p=11478&sid=0374d7dd28e7957f8b6e9c6886854087

Je te conseille de visualiser ce topic très bien fait... il y a quelques renseignements utiles

merci beaucoup souri84

et je te remercie aussi Gorfael et j'apprecie beaucour tes efforts vraiment tu es un expert en excel, je voulais te remercie sur lautre feuille mais j'arrive pas merci bcccccccccccccccccccccccccccccccccccccccp