Save as

Salut,

Avec ce code, ca marche :
Sub Sauver()
ThisWorkbook.SaveAs ([B2])
End Sub

--
Nicolas B.

Denys a écrit récemment dans un message de news :

Bonjour à tous,

Est-il possible qu'en cliquant sur un bouton de commande,
Excel sauve le fichier selon la valeur (texte ou nombre)
se trouvant dans une cellule, disons B2 par exemple?

Merci pour vos idées...

Denys

Voici une petite macro qu'il est possible d'associé à un
bouton de commande.

Sub Save_As()

ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsuserMy Documents" &
Range("A1").Value & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Simplement changer la valeur RANGE à la cellule voulue.

Louis Corriveau
Soutien au opérations NOXENT
www.NOXENT.com

-----Message d'origine-----
Bonjour à tous,

Est-il possible qu'en cliquant sur un bouton de commande,
Excel sauve le fichier selon la valeur (texte ou nombre)
se trouvant dans une cellule, disons B2 par exemple?

Merci pour vos idées...

Denys
.

Bonjour Louis et Nicolas,

Merci infiniment à vous deux. Vous venez vraiment de me
sauver beaucoup de temps...

Bonne journée

Denys

-----Original Message-----
Bonjour à tous,

Est-il possible qu'en cliquant sur un bouton de commande,
Excel sauve le fichier selon la valeur (texte ou nombre)
se trouvant dans une cellule, disons B2 par exemple?

Merci pour vos idées...

Denys
.