Code pour sauvegarde sous

Bonjour à tout le forum,

je suis à la recherche d'un code qui me permettrait de sauvegarder directement sur un chemin prédéfini, mais je voudrais que dans la partie du nom du fichier, qu'il y ait déjà des renseignements prédéfini. Pour le chamin pas de souci, j'ai trouvé, mais pas pour le nom.

Par exemple, les x doivent être modifiable par l'utilisateur et le reste en prédéfini

nom de fichier : Bonjour xxx - 2017-xxxx - xxxxxxx

Voici mon code pour le chemin

Dim fichier As String

On Error Resume Next

ChDir "C:\Mon Espace Disque"

fichier = Application.GetSaveAsFilename( _

fileFilter:="Excel Files (*.xls), *.xls")

If fichier <> False Then ThisWorkbook.SaveAs fichier

Merci par avance pour votre aide

Laurent

Bonjour,

voici un exemple,

Sub Macro1()
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Renseigner le Nom du fichier en remplacent les x"
Title = "Nom du fichier"    ' Définit le titre.
Default = "Bonjour xxx - 2017-xxxx - xxxxxxx"    ' Définition la valeur par défaut.

' Affiche le message, le titre et la valeur par défaut.
nom_de_fichier = InputBox(Message, Title, Default)
 If nom_de_fichier = "" Then
  MsgBox "Le nom du fichier est incomplet, le fichier ne sera pas enregistré", vbCritical
 End If
End Sub
Rechercher des sujets similaires à "code sauvegarde"