Sauvegarde fichier sous forme : date.xls

[JBSB]

Bonsoir à tous,

Je voudrais poser une petite question : quelqu'un pourrait-il me dépanner sur le sujet de la sauvegarde d'un fichier à la date actuelle (ex : je suis dans le fichier WB1 et je sauvegarde celui-ci le 08/09/04 => la sauvegarde s'effectue sur D:\WB avec le format 040908.xls.

Merci de votre attention.

Bonne soirée à tous.

 

[Robert]

Salut JBSB, salut le forum,

cette petite macro devrait te convenir :

Sub sauvaladat()
Dim n As String
n = "D:\WB\" & Format(Date, "yymmdd") & ".xls"
ActiveWorkbook.SaveAs n
End Sub

À plus,

Robert

 

[JBSB]

Bonsoir,


Merci Robert pour ce petit programme, c'est exactement ce que je recherchais.

Merci encore et bonne soirée.

JBSB