Aide sur code VBA variable mois et année

[Soleil11]

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

 

[Pierrot93]

Re : Aide sur code VBA variable mois et année

Bonjour Soleil,

essaye peut être ceci :

Dim x As String
x = Format(Date, "mmmm yyyy")

bon après midi
@+

 

[Soleil11]

Re : Aide sur code VBA variable mois et année

Bonjour Soleil,

essaye peut être ceci :

Dim x As String
x = Format(Date, "mmmm yyyy")

bon après midi
@+

Bonjour le forum,

Cela fonctionne très bien, mais encore une petite question : Le résultat de la variante s'affiche en français "Septembre 2010". Comment puis-je le faire afficher en anglais "September 2010" sans changer les paramètres de mon ordinateur dans panneaux de configuration "regional and languages options" et de changer la langue ?

Merci encore de votre aide.

Soleil11😕

 

[Pierrot93]

Re : Aide sur code VBA variable mois et année

Bonjour Soleil,

avec un peu de retard, mais problèmes de connexion internet...

pour revoie dans une variable, je te laisse complèter la liste des mois :

Dim x As String, y As Integer
y = Month(Date)
x = Switch(y = 9, "september", y = 10, "october", y = 11, "november", y = 12, "december") _
    & " " & Year(Date)

dans une cellule :

With Range("A1")
    .Value = Date
    .NumberFormat = "[$-409]mmmm yyyy;@"
End With

bon après midi
@+

 

[Soleil11]

Re : Aide sur code VBA variable mois et année

Bonjour le forum,

J'ai testé et cela marche.

Merci à tout le forum.

Soleil11