Enregistrement de fichier avec date

Bonjour

peut etre pourriez vous m'indiquez la marche à suivre , car je bloque un peu

je dois enregistrer un fichier avec la date et l'heure et dans mon code et dans mon code j'ai placé en variable

Dim valeur As String
    valeur = "BETA_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"
    chemin = ThisWorkbook.Path

et dans le traitement de la procedure j'ai

.SaveAs Filename:=chemin & "\sauvegarde\valeur "

le code tourne mais j'obtiens un fichier nommé "valeur" dans le dossier de sauvegarde au lieu d'avoir le dossier BETA avec l'extension jour et heure

je ne trouve pas l'erreur ...

En vous remerciant pour tout conseil .

cordialement

Bonjour

Sub Enreg()
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\"
valeur = "BETA_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"
ThisWorkbook.SaveAs Path & valeur
End Sub

Cordialement

Merci pour cette réponse , mais comment puis je placer dans le chemin mon dossier nommé sauvegarde censé recuperer le fichier BETA ?

merci

Bonjour

Sub Enreg()

Dim Path As String, valeur As String

Path = ActiveWorkbook.Path & "\"

valeur = "BETA_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"

ThisWorkbook.SaveAs Filename:= _

"D:\Mes documents\sauvegarde" & "\" & valeur

End Sub

Tu remplaces D:\Mes documents\sauvegarde par le chemin d'accès de ton fichier

Cordialement

Merci infiniment pour ces réponses détaillées , j'y vois plus claire !! bonne journée à toi