enregistrement auto

Salut greencar

exemple pour du VBA
Range("A2") = "DOC" & Str(Range("A1")) & ".xls"

A+ Roland

Merci

Effectivement, ce VBA transforme bien le contenu de la cellule en DOCxxxx.xls, dans une autre cellule.

Mais comment lui dire lors de l'enregistrement du document d'utiliser ce nom de maniere automatique ?

du style :

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrateur\Mes documents\Doc1001.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

mais ou Doc1001 ne serait pas tape a la main comme dans le cas ci-dessus.

Merci

Bonjour greencar et le forum,

En admettant que la valeur à utiliser se trouve dans la cellule A1, cela donnerait :

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrateur\Mes documents\Doc" & Cstr(Range("A1").Value) & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


Slts

wally

Merci Wally, c'est exactement ce que je cherchais.

Heureusement qu'on trouve des bons sur les forum pour nous aider.

slts

FC