Enregistrer-sous la valeur

yoyo69

XLDnaute Nouveau
Bonjour,

Je cherche une macro qui enregistre-sous le nom ou valeur stipulé en case A1.

Merci à tous,

Cordialement,
Yo
 

Chloulou

XLDnaute Occasionnel
Re : Enregistrer-sous la valeur

C'est pas bien compliqué, il suffit d'utiliser l'enregistreur de macros :
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/08/2007
'

'
    ChDir "C:\...\...\..."
    ActiveWorkbook.SaveAs Filename:= _
        "C:\...\....\...\" & Worksheets("Feuil1").Range("A1").value & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

je crois que c'est ca, il faut juste donner la direction d'enregistrement (dossiers..)

Oups : t avais pas vu stef2708
 

Discussions similaires

Statistiques des forums

Discussions
312 231
Messages
2 086 455
Membres
103 216
dernier inscrit
LoshR7