Enregistrer un fichier avec le nom d'une cellule

Bonjour,

J'aimerai savoir comment faire pour enregistrer un fichier qui porte le nom de ma cellule D5.

Voici le programme que j'ai fais, mais ca ne fonctionne pas, j'ai juste la date. Quelqu'un sait pourquoi ?

Sub enregistrerss()
Dim Chemin As String, NomFichier As String
Dim poste As Integer
UserForm1.Show
poste = Range("d5").Value
Chemin = "Documents\"
NomFichier = "ADP" & poste & Format(Date, "dd-mm-yy") & ".xlsm"
ThisWorkbook.SaveAs Chemin & NomFichier
End Sub

Merci d'avance

Bonjour,

La cellule D5 est-elle renseignée à l'issue du USF ? Essayez en écrivant D5 et non d5. Nous sommes d'accord que D5 contient une valeur numérique ?

Sinon il va me falloir un bout de fichier.

Cdlt,