enregistrement auto

[greencar]

Bonjour le Forum,

J'essaie d'automatiser l'enregistrement d'un fichier Excel, en utilisant la valeur d'une cellule pour nom d'enregistrement.
Ex : valeur cellule : 1001 > Doc1001.xls
1010 > Doc1010.xls
Quelqu'un connait-il la fonction ou la macro transformant ce contenu en texte ?

Merci de vos reponses

 

[Roland]

Salut greencar

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

A+ Roland

 

[greencar]

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

 

[wally]

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

 

[greencar]

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

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

slts

FC