Récupérer une cellule pour le nom de fichier

[anacondrilla]

Bonjour à tous je suis nouveau sur le forum.

J'ai trouvé plusieurs messages qui parler de récupérer le nom de fichier dans une cellule mais qu'en est il de l'inverse?

En effet, je souhaite que systématiquement quand j'ouvre un fichier de base et que je remplisse une case, quand je fait "enregistrer sous" il me propose directement d'enregistrer sous le nom de A1 par exemple.

Merci d'avance,

Ana

 

[JCGL]

Re : Récupérer une cellule pour le nom de fichier

Bonjour à tous,
Bienvenue sur XLD,

Ceci dans un module standard :

Option Explicit
Sub Test()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(1, 1).Text
End Sub

Ou ceci dans le module ThisWorkBook :

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(1, 1).Text
End Sub

A + à tous

 

[job75]

Re : Récupérer une cellule pour le nom de fichier

Bonsoir anacondrilla, bonsoir Jean-Claude 🙂

Et si l'on veut afficher la boîte de dialogue :

Sub EnregistrerSous()
Application.Dialogs(xlDialogSaveAs).Show [A1]
End Sub

A+

 

[job75]

Re : Récupérer une cellule pour le nom de fichier

Re Jean-Claude,

Pour ta macro dans ThisWorkbook je crois qu'il faut compliquer un peu, sinon...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
On Error Resume Next 'si A1 est vide ou contient des caractères interdits...
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(1, 1).Text
Application.EnableEvents = True
End Sub

A+

 

[JCGL]

Re : Récupérer une cellule pour le nom de fichier

Bonjour à tous,
Salut Gérard,

Merci pour le complément.

A + à tous

 

[job75]

Re : Récupérer une cellule pour le nom de fichier

Bonjour anacondrilla, JC, le forum,

Et encore, je n'avais pas compliqué assez, vicieuse cette macro 🙂

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.DisplayAlerts = False 'facultatif, si classeur A1 déjà créé...
On Error Resume Next 'si A1 est vide ou contient des caractères interdits...
Application.EnableEvents = False
If Not Me.Saved Then Me.Save 'enregistre les modifications
Me.SaveAs Me.Path & "\" & Cells(1, 1).Text 'si nouveau nom en A1
Application.EnableEvents = True
End Sub

A+

 

[anacondrilla]

Re : Récupérer une cellule pour le nom de fichier

Bonjour,

Merci à tous pour vos réponse.

Cependant je suis un peu novice en vba je maîtrise plutôt bien les différentes fonctions d'excel pas ça...

Pourriez vous m'indiquer un endroit ou je peux trouver un tuto pour mettre en pratique vos précieux conseil ? (je sais tout de même accéder l'interface vba...)

merci encore,

Cdt,

Ana

 

[JCGL]

Re : Récupérer une cellule pour le nom de fichier

Bonjour à tous,

Voir le code de l'ami Job dans le module ThisWorkBook.
Tu fermes le classeur et automatiquement le fichier s'enregistre avec le texte déposé en A1 (prendre soin de terminer par .xls, mais cela peut s'arranger).

A+ à tous

 

[anacondrilla]

Re : Récupérer une cellule pour le nom de fichier

Un grand Merci !