Sauvegarder automatiquement

Lemidi34 · 12 Mars 2006

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. · 12 Mars 2006

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 · 13 Mars 2006

Merci j'ai adapté à mon tableau

c'est nickel

Sauvegarder automatiquement

Lemidi34

XLDnaute Occasionnel

pat1545.

XLDnaute Accro

Lemidi34

XLDnaute Occasionnel

Discussions similaires