Private Sub Workbook_Open()
'Macro pour ouvrir, enregistrer et fermer un fichier excel 2007 : exemple pour mettre a jour date du jour
Dim nom As String
Application.DisplayAlerts = False
With ActiveWorkbook
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\jdiaz\Bureau\CHARGE ATELIER\calendrier ATELIER.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
Application.DisplayAlerts = True
End Sub