enregistrer sous

[Ronan]

Salut le forum.
Voici mon souci.
J’essais de réaliser un macro qui enregistrerait mon fichier sous le nom des informations qui ce trouve dans une cellule.
Exemple : Dans mon fichier Model.xls, j’ai en C4 « D-2003-153 » ( Donnée que je fais varier ), et je voudrai que la macro enregistre mon fichier sous le nom : D-2003-153.xls.
Quelqu'un aurait-il une idée pour résoudre mon problème ?
Merci à tous.
Ronan.

 

[@Christophe@]

Bonjour Ronan

Ajoute un bouton sur ton fichier et colle y le code suivant:

Private Sub CommandButton1_Click()
Dim XLSname As String

XLSname = Range("A1").Value

ThisWorkbook.SaveAs "C:\Documents and Settings\Christophe\Mes documents\" & XLSname
End Sub


Tu change Range("A1") par la cellule ou se trouve le nom et le répertoire ou tu veux sauvé aussi biensur

Bonne journée

@Christophe@