Discussion :

[will Igetit]

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

[Invité]

Bonjour,

Ne serait-ce pas plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Active.Workbook.SaveAs Filename:="C:\WINDOWS\Profiles\abcde\Desktop\" & Worksheets("SUMMARY").Range("F8") & now & ".xls"

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Active.Workbook.SaveAs Filename:="C:\WINDOWS\Profiles\abcde\Desktop\" & Worksheets("SUMMARY").Range("F8") & Format(Now, "dd/mm/yyyy") & ".xls"

si vous ne voulez pas l'heure.

[fring]

Bonjour,

Tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
ThisWorkbook.SaveAs Filename:="C:\WINDOWS\Profiles\abcde\Desktop\" & Worksheets("SUMMARY").Range("F8") & Format(Date, "yyyymmdd") & ".xls"
 
End Sub

Petit conseil, lorsque tu enregistres un fichier en y ajoutant la date, il vaut mieux écrire la date comme ceci (année mois jour) 20081006 ce qui permettra de garder un classement logique de tes fichiers

[will Igetit]

it works