Sauvegarder automatiquement

[Lemidi34]

Bonsoir,

Je sais que l'on peut enregistrer automatiquement,

mais peut on avec un bouton de commande enregistrer le fichier sous l'intitulé inscrit dans une cellule défini.

Le but est d'ouvrir une fiche client vierge et de l'enregistrer automatiquement en sortant avec le nom du client.

Merci de votre aide

 

[pat1545.]

Salut Lemidi34,
ce code prend la valeur de la cellule A1, attention toutefois aux caratères spéciaux !
Option Explicit

Sub Macro2()
Dim Lenom
Lenom = [A1].Value & '.xls'
ActiveWorkbook.SaveAs Filename:=Lenom, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Voilà

 

[Lemidi34]

Merci j'ai adapté à mon tableau

c'est nickel