Discussion :

[sylvain7]

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

[NEC14]

Bonjour sylvain7,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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