enregistrer sous le nom d'une cellule

[thiroux]

je souhaiterais a l'aide d'une macro enregistrer mon fichier sous le nom d'une cellule

exemple:

La cellule A1 contient un texte 'XY' je clic sur un bouton auquel j'ai affecter une macro et le fichier s'enregistre sous 'XY'

Merci d'avance

 

[myDearFriend!]

Bonjour thiroux,

Tu peux essayer :

Sub Sauvegarde()
      With Sheets('Feuil1').Range('A1')
            If .Value <> '' Then
                  ThisWorkbook.SaveAs ThisWorkbook.Path & '\' & .Value & '.xls'
            Else
                  MsgBox 'Nom inexistant'
            End If
      End With
End Sub

Cordialement,

 

[thiroux]

merci bcp ca fonctionne a merveille

a tres bientot