T
tracor
Guest
salut le phorum
j'ai une petite macro qui me permet d'enregistrer automatiquement un fichier en le renommant d'un début et fin de période
je souhaiterai plutot qu'un début et fin obtenir un numéro de semaine
ci joint la macro
Global CheminFichierSource, débutsem, finsem
Sub enregistrement()
cheminfichiersource="c: \bureau\windows\"
débutsem = Format(Date - 7, "dd mm yy")
finsem = Format(Date - 2, "dd mm yy")
Application.StatusBar = "enregistrement"
Range("a1").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=CheminFichierSource + "test" + débutsem + " AU " + finsem, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
merci d'avance de toutes suggestions ou réponses
tracor
j'ai une petite macro qui me permet d'enregistrer automatiquement un fichier en le renommant d'un début et fin de période
je souhaiterai plutot qu'un début et fin obtenir un numéro de semaine
ci joint la macro
Global CheminFichierSource, débutsem, finsem
Sub enregistrement()
cheminfichiersource="c: \bureau\windows\"
débutsem = Format(Date - 7, "dd mm yy")
finsem = Format(Date - 2, "dd mm yy")
Application.StatusBar = "enregistrement"
Range("a1").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=CheminFichierSource + "test" + débutsem + " AU " + finsem, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
merci d'avance de toutes suggestions ou réponses
tracor