thisworkbook.SaveAs [B][COLOR=black]"C:\toto\" &[/COLOR][/B] range("A4") & " " & range("E1")
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim nom As Variant
nom = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & Range("A4") & "_" & Range("E1") & ".xls", _
filefilter:="Classeur Microsoft Excel (*.xls),*.xls") 'Sauvegarde fichier
If nom = False Then Exit Sub
End Sub
ThisWorkbook.SaveAs Filename:=nom
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim nom As Variant
nom = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & Range("A4") & "_" & Range("E1") & ".xls", _
filefilter:="Classeur Microsoft Excel (*.xls),*.xls") 'Sauvegarde fichier
If nom = False Then Exit Sub
ThisWorkbook.SaveAs Filename:=nom
End Sub