Probleme de script

[dudu133]

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]

 

[ERIC S]

Bonjour

et quel est le problème ?

A+

 

[dudu133]

Salut à toi,
j'ai un bouton de commande pour enregister sous et quand je demande pour le remplacer, ça bug au niveau de la commande:
ActiveWorkbook.SaveAs Filename:='c:mes documentsprojetdevisdd.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False

 

[dudu133]

Salut à toi,
j'ai un bouton de commande pour enregister sous et quand je demande pour le remplacer, ça bug au niveau de la commande:
ActiveWorkbook.SaveAs Filename:='c:mes documentsprojetdevisdd.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False

 

[ERIC S]

re

je verrai cela demain mais vérifie que le chemin existe

en général tu peux te limiter à

ActiveWorkbook.SaveAs Filename:='c:mes documentsprojetdevisdd.xls'

A+