Aide sur code VBA variable mois et année

Bonjour le forum,

J'ai créer ce bout de code, qui marche très bien. J'ai un menu en feuille1 avec plusieurs cellules qui sont repris comme références pour faire tourner ce code. Mon problème est le suivant j'aimerais changer une variable "v_monthyear$" et l'automatiser pour je n'ai plus à taper en cellule B2 le mois et l'année. Est-il possible de déclarer cette variable directement afin qu'il reprenne automatiquement le mois et l'année sans passer par une cellule de référence.

Comment peux-t-on dire à la variable que je ne veux que le mois et l'année en cours, exemple : "September 2010".

Merce de votre aide.

Soleil11🙂





**************code ci-dessous

Dim Ligne As Long, Ligne2 As Long
Dim Lig As Long, ws As Worksheet
Dim v_id$
Dim v_monthyear$
Dim V_entity$
Dim v_path$
Dim fName1


Worksheets("Menu").Activate
v_path$ = Sheets("Menu").Range("B1")
MsgBox ("Save path: '" & v_path$ & "'")
v_id$ = Sheets("Menu").Range("B3")
MsgBox ("Id number: '" & v_id$ & "'")
V_entity$ = Sheets("Menu").Range("B4")
MsgBox ("Entity name: '" & V_entity$ & "'")
v_monthYear$ = Sheets("Menu").Range("B2")
MsgBox ("and your month: '" & v_monthYear$ & "'")

fName1 = v_path$ & "\" & v_id$ & " " & V_entity$ & " " & v_monthYear$ & ".xls"


Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:=fName1
Application.DisplayAlerts = True


End Sub