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

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

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

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.
jean marie

ChTi160 à dit:

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.

VB:

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

Cliquez pour agrandir...

ChTi160 à dit:

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.

VB:

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

Cliquez pour agrandir...

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