enregistrement de fichier excel sous nom d'une cellule

[laurent]

Bonjour,

je souhaiterais lorsque j'enregistre mon fichier excel, l'enregistrer sous le nom d'une cellule existante. Ainisi, quand je copierais le fichier et que la cellule sera modifiée on pourra enregistrer sous un nom différent.

D'avance merci
Laurent

 

[Moa]

Salut Laurent

Vite fait en passant:

Pour le nom mis en cellule "A1"

ActiveWorkbook.SaveAs Sheets("NomDeTaFeuille").Range("A1").Value

Et si tu ne veux pas de message de confirmation d'enregistrement :

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Sheets("NomDeTaFeuille").Range("A1").Value
Application.DisplayAlerts = True

Si, quand tu sauvegardes ton classeur, tu es dans la feuille qui contient la cellule de référence, tu peux simplifier, en enlevant Sheets("NomDeTaFeuille"), tel que :

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Range("A1").Value
Application.DisplayAlerts = True

@ +

Moa

 

[laurent]

Merci ca marche bien
@+

 

[laurent]

Je cherche maintenant à enregistrer ce fichier toujours au même endroit dans un dossier qui contiendra tous ces fichiers

D'avance merci
Laurent

 

[juju]

Hello,

Essaie ça : nom du fichier en A1 sur feui1

Sub Save()
ThisWorkbook.SaveAs Filename:="C:\" & Sheets("Feuil1").Range("A1").Value & ".xls"
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub


@ +

Ju