bonjour à tous,
j'ai un problème avec la commmande ActiveWorkbook.SaveAS
Dim Repertoire As String
Dim Fichier As String
Dim Extension As String
Repertoire = 'C:\\Mes documents\\PROJET\\DEVIS\\'
Extension = '.xls'
Fichier = Format(Now, 'dd-mm-yy hh mm') & Cells(2, 9).Value & Cells(17, 3).Value
ActiveWorkbook.SaveAs Filename:='c:\\mes documents\\projet\\devis\\dd.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False[/color]
j'ai un problème avec la commmande ActiveWorkbook.SaveAS
Dim Repertoire As String
Dim Fichier As String
Dim Extension As String
Repertoire = 'C:\\Mes documents\\PROJET\\DEVIS\\'
Extension = '.xls'
Fichier = Format(Now, 'dd-mm-yy hh mm') & Cells(2, 9).Value & Cells(17, 3).Value
ActiveWorkbook.SaveAs Filename:='c:\\mes documents\\projet\\devis\\dd.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False[/color]