Comment choisit on un chemin par defaut en VB pour sauvegarder qqch
 
Moi j'ecris :
 
  ChDir "C:\Windows\Bureau\"        
 
  OpenSave = Application.GetSaveAsFilename(InitialFilename:=SaveCompany + " - " + SaveName + " - " + SaveDate + "." + "xls", filefilter:="Excel projects (*.xls), *.xls", Title:="Save the project as..." )
  ThisWorkbook.SaveAs Filename:=OpenSave
 
mais ca fait n'importe quoi
Quelqu un aurait il une idee ?

pour changer le repertoire par defaut:
application.defaultfilepath="c:\"    'ou un autre chemin

Merci Bcp

Ca marche  Je te remercie encore

enfin il y a encore un hic  
c que moi je dois ecrire ca  
 
Application.DefaultFilePath = ThisWorkbook.Path '+ "\Projects"
 
et ca il le prends pas  
et je sais pas pk
parce que en fait le chemin change  
Si qqun sait comment faire ...

J'ai pas testé mais:
temp=thisworkbook.path & "\projects"

Merci nur c'est ca
 
j'ecris ca et ca marche
 
temp = ThisWorkbook.Path & "\projects"
ChDir temp
 
et sinon tu sait pas comment afecter un champs de Word ds Excel?
en tt cas Merci bcp