XL 2016 Syntaxe dans une macro pour nommer un nouveau classeur avec la valeur d'une cellule nommée

[Lili44]

Bonjour,

Dans un classeur (classeur 1), j'ai une macro (que j'ai enregistré car je ne sais pas les écrire) dans laquelle je demande de créer et enregistrer un nouveau classeur (classeur 2).

Et ce classeur 2, je souhaite l'enregistrer avec un nom différent à chaque déclenchement de la macro (1 fois par mois) et le nom que je souhaite est issu d'une cellule avec formule que j'ai nommé (je l'ai appelé "Mois") dans le classeur 1.

Quelle est la bonne syntaxe à donner au nom de fichier dans la macro pour que le classeur 2 se nomme avec la valeur de la cellule "Mois" ?

Merci pour votre aide

 

[ChTi160]

Bonjour Lili44
pas de fichier exemple ？
avec quelques explications de ce que tu veux.
jean marie

 

[Lili44]

Bonjour,

Non, les données sont confidentielles, mais en résumé, voici ce que j'ai en VBA au niveau du nom de fichier :

ActiveWorkbook.SaveAs Filename:= _
"C:\Compta\2019\Décaissement pour compte\Classeur2.xlsx"

Ce que je veux, c'est qu'à la place de "Classeur2", le classeur se nomme automatiquement avec la valeur d'une cellule calculée

Peut-être n'est-ce pas possible ?

Merci

 

[ChTi160]

Re
mais on accepte les fichiers anonymises.
Enfin！
une Idee qui ne repose sur rien.
On recupere la valeur de la Cellule Source dans une Variable.
puis on construit le chemin d enregistrement avec le nom du Fichier.

With Worksheets（x）
NomClasseur=.Cells(1,1).Text
End With
ActiveWorkbook.SaveAs Filename:= _
"C:\Compta\2019\Décaissement pour compte\“ & NomClasseur &”.xlsx"
Cells(1,1) à modifier（cellule qui contient le nom）

jean marie

 

[Lili44]

Re
mais on accepte les fichiers anonymises.
Enfin！
une Idee qui ne repose sur rien.
On recupere la valeur de la Cellule Source dans une Variable.
puis on construit le chemin d enregistrement avec le nom du Fichier.

With Worksheets（x）
NomClasseur=.Cells(1,1).Text
End With
ActiveWorkbook.SaveAs Filename:= _
"C:\Compta\2019\Décaissement pour compte\“ & NomClasseur &”.xlsx"
Cells(1,1) à modifier（cellule qui contient le nom）

jean marie

Re
mais on accepte les fichiers anonymises.
Enfin！
une Idee qui ne repose sur rien.
On recupere la valeur de la Cellule Source dans une Variable.
puis on construit le chemin d enregistrement avec le nom du Fichier.

With Worksheets（x）
NomClasseur=.Cells(1,1).Text
End With
ActiveWorkbook.SaveAs Filename:= _
"C:\Compta\2019\Décaissement pour compte\“ & NomClasseur &”.xlsx"
Cells(1,1) à modifier（cellule qui contient le nom）

jean marie

Bonjour Jean Marie,

Désolée, je n'arrive pas à l'écrire comme il faut

Ci-dessous le code complet de ma macro, la cellule qui contient le nom du nouveau classeur à créer est la cellule D9 d'une feuille qui s'appelle "Contrôle"

Pourriez-vous m'insérer au bon endroit la macro pour nommer le classeur avec la valeur de la cellule D9 de la feuille "Contrôle" ?

Encore merci

Sub Filtrer_exporter()
'
' Filtrer_exporter Macro
'

'
Sheets("Virements").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$181").AutoFilter Field:=5, Criteria1:="<>0", _
Operator:=xlAnd
Selection.CurrentRegion.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Application.CutCopyMode = False
ChDir "C:\Compta\2019\Décaissement pour compte"
ActiveWorkbook.SaveAs Filename:= _
"C:\Compta\2019\Décaissement pour compte\Classeur2.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub