Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Lili44

XLDnaute Nouveau
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
 

Lili44

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 
Dernière édition:

Lili44

XLDnaute Nouveau

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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…