Dim Repertoire As String
Dim Fichier As String
Dim Extension As String
Repertoire = "C:\Documents and Settings\Admin\Mes documents\FCS Global\SUIVI CLIENTS\DEVIS\DEVIS 2006\"
Extension = ".xls"
Fichier = "Devis N° " & Cells(16, 4) & " " & Format(Now, "dd-mm-yy" ) & " " & Cells(2, 9).Value & " OBJET = " & Cells(17, 3).Value
ActiveWorkbook.SaveAs Filename:= _
Repertoire & Fichier & Extension _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False |