Enregistrement de fichier avec date

[rocket4]

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

Code: Tout sélectionner

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

Code: Tout sélectionner

.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

[Amadéus]

Bonjour

Code: Tout sélectionner

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

[rocket4]

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

merci

[Amadéus]

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

[rocket4]

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