macro : enregistrement d'un fichier

[faudouy]

Bonjour à tous,
j'ai besoin d'une macro qui enregistre le fichier en cours avec un préfixe (Gestion) + le numéro de la semaine + l'année.

Exemple : Pour la semaine 5, j'obtiendrai : Gestion-5-2008.slx

Est ce possible, si voui, merci d'avance pour votre contribution.
Cdt,

 

[Staple1600]

Re : macro : enregistrement d'un fichier

Bonjour



Dim NOM_FIC as String
Dim NUMSEM as Integer
NUMSEM = DatePart("ww", Date, vbMonday, vbFirstFourDays)
NOM_FIC="Gestion" & NUMSEN & Year(Date)

 

[Staple1600]

Re : macro : enregistrement d'un fichier

Re

Voila ca devrart faire l'affaire

Sub enreg()
Dim NOM_FIC As String
Dim NUMSEM As Integer
NUMSEM = DatePart("ww", Date, vbMonday, vbFirstFourDays)
NOM_FIC = "Gestion" & "-" & NUMSEM & "-" & Year(Date)
ActiveWorkbook.SaveAs (NOM_FIC)
End Sub

 

[faudouy]

Re : macro : enregistrement d'un fichier

Merci a toi . et a la communauté
Fred