bonjour ,
j'ai un fichier a reenregistrer tous les jours et j'essai donc que la cration du fichier soit automatique , j'ai essaye le code suivant sans succes


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Active.Workbook.SaveAs Filename:="C:\WINDOWS\Profiles\abcde\Desktop\" & Worksheets("SUMMARY").Range("F8") & today() & ".xls"
 
End Sub