Sauvegarde fichier Excel

Bonjour, j'utilise Excel 2007.
J'aimerais sauvagarder mon fichier Excel sous un nom qui est dans une cellule spécifique dans mon tableaux.

En me servant de VBA

Bonjour sylvain7,

J'utilise ce code et ça marche bien. A toi de l'adapter selon tes besoins.

Code:

---

1 2 3 4 5

Dim vNom As String vNom = Trim(InputBox("Nom du fichier")) ActiveWorkbook.SaveAs Filename:=vNom & Sheets("****").Range("A1").Value Next N

---

Un boîte de message s'affiche te demande sous quel nom tu veux enregistrer ton fichier et y ajoute ce qu'il y a dans la cellule A1
Les ** doivent être remplacées par le nom de ta feuille et A1 par la cellule qui t'intéresse.

Si tu ne veux que la cellule tu enlèves le début du code et tu garde cette partie

Code:

---

1 2	ActiveWorkbook.SaveAs Filename:=Sheets("****").Range("A1").Value

---