ENREGISTRER Feuille active

Bonsoir,

J'ai un code pour enregistrer ma feuille active avec noms de cellule et format horaire :

Sub Feuille_de_présence()

'
' Feuille de présence Macro
 Dim Chemin As String, nomFichier As String, extension As String
    Chemin = "D:\A\"
    Sheets("Feuille de présence").Copy
    nomFichier = "Feuille de présence"
    extension = ".xls"
    With ActiveWorkbook
    .SaveAs Filename:=Chemin & nomFichier & " " & "-" & Format(Now, "dd mmmm yyyy hh.mm.ss") & "" & extension
    .Close
    End With
   End Sub

Mais je dois en plus lors de son enregistrement inclure un Nom que je ne connaîtrais qu'au dernier moment.

Peut-on faire appel à une boite de dialogue avec en partie le nom rempli et y insérer seulement le Nom voulu.

Merci pour vos réponses

Bonjour

Ajoute un inputbox :

 Dim Chemin As String, nomFichier As String, extension As String
    Chemin = "D:\A\"
    Sheets("Feuille de présence").Copy
    nomFichier = "Feuille de présence"
r = InputBox("Donnez le nom :", "Nom à ajouter")
    If r = "" Then End
    nomFichier = nomFichier & " " & r
    extension = ".xls"
    With ActiveWorkbook
    .SaveAs Filename:=Chemin & nomFichier & " " & "-" & Format(Now, "dd mmmm yyyy hh.mm.ss") & "" & extension
    .Close
    End With
   End Sub

Bye !

C'est parfait GMB.

Merci