Renommer un classeur en fonction de variable

[barth66]

bonsoir,

voila une "petite" chose pour vous mais une "grande" chose pour moi,

je m'explique j'ai enregistrer une macro, qui ouvre un nouveau classeur, je souhaiterai que celui ci se renomme tout seul en fonction des variables qui se trouve dans le classeur de base.

C'est à dire, Mon classeur "ESSAI", ouvre un nouveau classeur.

Ce nouveau classeur doit s'enregistrer selon les variables contenu dans l'onglet "procédure" en cellule J2 et K2

Par exemple dans J2 j'ai JANVIER et dans K2 SKI

Mon souhait serai que mon nouveau classeur s'appelle "janvier ski"

Mon code :

Sub Macro11()
'
' Macro11 Macro
'
Workbooks.Add
ActiveWorkbook.SaveAs
With Workbooks("ESSAI")
End With
With Worksheet("Procédure")
End With
"U:\Exploitation\with Worbooks ESSAI with sheet Procedure & Cells(2, 11).Value & Cells(2, 11)"
End With
Windows("ESSAI.xls").Activate

Merci pour tout !!!

End Sub

 

[CBernardT]

Re : Renommer un classeur en fonction de variable

Bonsoir barth66 et le forum,

Essayes avec cette syntaxe :

Sub EnregistrementNouveauClasseur()
Dim Repertoire As String, NomClasseur As String, CheminComplet As String
' Répertoire d'enregistrement
Repertoire = "U:\Exploitation"
' Nom du nouveau classeur
With Sheets("Procédure")
NomClasseur = .Range("J2") & " " & .Range("K2")
End With
' Chemin complet du futur classeur
CheminComplet = Repertoire & "\" & NomClasseur
' Création d'un nouveau classeur
Workbooks.Add
' Enregistrement du nouveau classeur
ActiveWorkbook.SaveAs Filename:=CheminComplet, FileFormat:=xlNormal
' Fermeture du nouveau classeur
ActiveWorkbook.Close
End Sub